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