if (packageVersion("lme4") >= "2.0.0") {
datasets <- generateRepeatedMeasuresDatasets(
1, numberOfSubjects = 30, numberOfVisits = 3, numberOfReplicates = 4,
structure = "cs", marginalSd = c(2, 1.5, 1.2), correlation = 0.5)
fit <- rlmer(datasets$formula, datasets$generateData(1), method = "DASvar")
VarCorr(fit)
}
Run the code above in your browser using DataLab