Nothing
context("createDF")
test_that("createDF", {
# default
dat <- createDF()
testthat::expect_equal(nrow(dat), 4000)
testthat::expect_equal(ncol(dat), 3)
testthat::expect_equal(names(dat), c("VP", "A", "B"))
# 1 factor, 2 levels
dat <- createDF(nVP = 20, nTrl = 50,
design = list("Comp" = c("comp", "incomp")))
testthat::expect_equal(nrow(dat), 20*50*2)
testthat::expect_equal(ncol(dat), 2)
testthat::expect_equal(names(dat), c("VP", "Comp"))
# 1 factor, 3 levels
dat <- createDF(nVP = 15, nTrl = 25,
design = list("Comp" = c("neutral", "comp", "incomp")))
testthat::expect_equal(nrow(dat), 15*25*3)
testthat::expect_equal(ncol(dat), 2)
testthat::expect_equal(names(dat), c("VP", "Comp"))
# 2*2 factor, 2 levels each
dat <- createDF(nVP = 10, nTrl = 25,
design = list("Comp" = c("comp", "incomp"),
"Side" = c("left", "right")))
testthat::expect_equal(nrow(dat), 10*25*2*2)
testthat::expect_equal(ncol(dat), 3)
testthat::expect_equal(names(dat), c("VP", "Comp", "Side"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.