o <- options(digits = 4)
## data
data("SourceMonitoring", package = "psychotools")
## source-monitoring MPT model
mpt1 <- mptmodel(SourceMonitoring$y, spec = mptspec("SourceMon"))
summary(mpt1)
plot(mpt1)
options(digits = o$digits)
Run the code above in your browser using DataLab