set.seed(0)
Subject = 1:40
FocusGroup = rep(1:4, each=10)
Treatment = rep(1:2, each=20)
Response = c(rnorm(10), rnorm(10) + .5, rnorm(10, sd = .75) + 1.5, rnorm(10, sd = .75) + 1.25)
x = data.frame(cbind(Subject, FocusGroup, Treatment, Response))
x$Subject = factor(Subject)
x$FocusGroup = factor(FocusGroup)
x$Treatment = factor(Treatment)
testdata.apa.regression.lmerModLmerTest = x
devtools::use_data(testdata.apa.regression.lmerModLmerTest, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.