MemoryDrugs <- read.csv("data-raw/MemoryDrugs.csv", strip.white = TRUE)
AOV <- aov(Recall~(Task*Valence*Gender*Dosage)+Error(Subject/(Task*Valence)),
data = MemoryDrugs)
cell_means <- model.tables(AOV,"means")[[1]]$`Task:Valence:Gender:Dosage`
devtools::use_data(MemoryDrugs)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.