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