set.seed(1)
oneWay <- generateAnovaDatasets(1, 1, 10, 4,
lmeFormula = y ~ 1,
heavyLmeRandom = ~ 1,
heavyLmeGroups = ~ Var2,
lqmmRandom = ~ 1,
lqmmGroup = "Var2",
groups = cbind(rep(1:4, each = 10), rep(1:10, 4)),
varcov = matrix(1, 4, 4),
lower = 0)
processFit(fitDatasets_lmer(oneWay)[[1]], all = TRUE)
processFit(fitDatasets_rlmer_DASvar(oneWay)[[1]], all = TRUE)
if (FALSE) {
processFit(fitDatasets_heavyLme(oneWay)[[1]], all = TRUE)
}
if (require(lqmm)) {
processFit(fitDatasets_lqmm(oneWay)[[1]], all = TRUE)
}
if (FALSE) {
processFit(fitDatasets_varComprob_compositeTau(oneWay)[[1]], all = TRUE)
}
Run the code above in your browser using DataLab