###################################################################
# Detect-Guess variant of the restricted Two-High Threshold model.
###################################################################
head(SimData)
mdl_2HTM <- "
# targets
d+(1-d)*g ; 0
(1-d)*(1-g) ; 1
# lures
(1-d)*g ; 0
d+(1-d)*(1-g) ; 1
# d: detect; g: guess
"
model <- to_ertmpt_model(mdl_file = mdl_2HTM)
data <- to_ertmpt_data(raw_data = SimData, model = model)
# \donttest{
# this might take some time to run
ertmpt_out <- fit_ertmpt(model = model, data = data)
# convergence
## traceplot and summary of the first six parameters
coda::traceplot(ertmpt_out$samples[,1:6])
summary(ertmpt_out)
# }
Run the code above in your browser using DataLab