within <- list(time = c("day", "night"))
between <- list(pet = c("dog", "cat"))
des <- check_design(within, between, plot = FALSE)
plot_design(des)
data <- sim_design(within, between, plot = FALSE)
plot_design(data)
Run the code above in your browser using DataLab