## Declare simulated data as metaSDTdata
metadata <- metaSDTdata(simMetaData, type1='resp', type2='conf', signal='S')
## Fit function to data of first 20 replications per subject
fit_sub <- metaSDTreg(A ~ signal,
data=metadata,
subset = m <= 20)
summary(fit_sub)
# \donttest{
## Fit model to estimate thresholds and sensitivities
fit <- metaSDTreg(A ~ signal,
data=metadata)
## True values are
## c(tau.n.2=-0.5, tau.n.1=-0.2, theta=0,
## tau.s.1=0.8, tau.s.2=1, d.n=0.5, d=1, d.s=0.75)
coef(fit)
# }
Run the code above in your browser using DataLab