data(sleepstudy)
sleepstudy2 <- sleepstudy
sleepstudy2[1, "Reaction"] <- sleepstudy2[1, "Reaction"] + 10
fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy)
datasets <- createDatasetsFromList(list(sleepstudy, sleepstudy2),
formula = Reaction ~ Days + (Days|Subject),
trueBeta = getME(fm1, "beta"),
trueSigma = sigma(fm1),
trueTheta = getME(fm1, "theta"))
fitDatasets_lmer(datasets)
Run the code above in your browser using DataLab