oneWay <- generateAnovaDatasets(18, 1, 5, 4)
datasetList <- splitDatasets(oneWay, 5)
data <- datasetList[[4]]$generateData(1)
stopifnot(all.equal(oneWay$generateData(16), datasetList[[4]]$generateData(1),
check.attributes = TRUE),
all.equal(oneWay$sphericalRandomEffects(16),
datasetList[[4]]$sphericalRandomEffects(1)),
all.equal(oneWay$createXMatrix(data), datasetList[[4]]$createXMatrix(data)),
all.equal(oneWay$createZMatrix(data), datasetList[[4]]$createZMatrix(data)))
Run the code above in your browser using DataLab