## Storage-retrieval model for pair clustering (Riefer & Batchelder, 1988)
data(retroact)
mpt1 <- mpt(freq ~ list(
c*r,
(1 - c)*u^2,
2*(1 - c)*u*(1- u),
c*(1 - r) + (1 - c)*(1 - u)^2,
u,
1 - u
), retroact[retroact$lists == 0,])
summary(mpt1) # parameter estimates, goodness of fit
plot(mpt1) # residuals versus predicted values
confint(mpt1) # approximate confidence intervals
plot(mpt1$coef, axes=FALSE, ylim=0:1, pch=16, xlab="",
ylab="Parameter estimate (MPT model, 95% CI)")
axis(1, 1:3, names(mpt1$coef)); axis(2)
arrows(1:3, confint(mpt1)[,1], 1:3, confint(mpt1)[,2], .05, 90, 3)
## See ?retroact and ?proact for further examples.
Run the code above in your browser using DataLab