if (FALSE) {
arglist <- list(
constant = list(capthist = ovenCHp, model = phi~1),
session.specific = list(capthist = ovenCHp, model = phi~session)
)
fits <- par.openCR.fit(arglist, trace = FALSE)
print(make.table(fits), na = ".")
}
Run the code above in your browser using DataLab