set.seed(0)
Subject = 1:100
FocusGroup = rep(1:3, times=c(5,5,90))
Attribute = c(rnorm(25), rnorm(25, sd=2), rnorm(25), rnorm(25, sd=2) + 2)
Response = rep(1:2, each=50)
x = data.frame(cbind(Subject, FocusGroup, Attribute, Response))
x$Subject = factor(Subject)
x$FocusGroup = factor(FocusGroup)
x$Response = factor(Response)
testdata.apa.regression.glmerMod = x
devtools::use_data(testdata.apa.regression.glmerMod, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.