Nothing
## Create simple dummy data ----
d <- data.frame(g1=factor(c("A","A","A","B","B","B","C","C","C")),
g2=factor(c("a","b","c","a","b","c","a","b","c")),
g3=factor(c("x","x","x","x","x","y","y","y","y")),
dat=1:9,junk=11:19)
## Test Messages ----
test_that("sumTable() messages",{
expect_error(sumTable(dat+junk~g1+g2,data=d),
"more than one variable on the LHS")
expect_error(sumTable(dat~g1+g2+g3,data=d),
"one or two factor variables on RHS of formula")
expect_error(sumTable(~g1,data=d),
"one or two factor variables on RHS of formula")
expect_warning(sumTable(dat~junk,data=d),
"RHS variable was converted to a factor")
expect_warning(sumTable(dat~g1+junk,data=d),
"Second RHS variable was converted to a factor.")
expect_warning(sumTable(dat~junk+g1,data=d),
"First RHS variable was converted to a factor")
})
## Test Output Types ----
## Validate Results ----
test_that("SumTable() Results",{
# 1-D example of mean
tmp <- sumTable(dat~g1,data=d)
expect_is(tmp,"array")
expect_equal(mode(tmp),"numeric")
expect_equivalent(tmp,array(c(2,5,8),dimnames=list(c("A","B","C"))))
# 1-D example of mean
tmp <- sumTable(dat~g2,data=d)
expect_is(tmp,"array")
expect_equal(mode(tmp),"numeric")
expect_equivalent(tmp,array(c(4,5,6),dimnames=list(c("a","b","c"))))
# 2-D example of mean
tmp <- sumTable(dat~g1*g2,data=d)
expect_is(tmp,"matrix")
expect_equal(mode(tmp),"numeric")
expect_equal(nrow(tmp),3)
expect_equal(ncol(tmp),3)
expect_equivalent(tmp,matrix(1:9,nrow=3,byrow=TRUE))
# 1-D example of length
tmp <- sumTable(dat~g1,data=d,FUN=length)
expect_is(tmp,"array")
expect_equal(mode(tmp),"numeric")
expect_equivalent(tmp,array(c(3,3,3),dimnames=list(c("A","B","C"))))
# 2-D example of length
tmp <- sumTable(dat~g1*g2,data=d,FUN=length)
expect_is(tmp,"matrix")
expect_equal(mode(tmp),"numeric")
expect_equal(nrow(tmp),3)
expect_equal(ncol(tmp),3)
expect_equivalent(tmp,matrix(1,nrow=3,ncol=3,byrow=TRUE))
# 1-D example of sd
tmp <- sumTable(dat~g1,data=d,FUN=sd)
expect_is(tmp,"array")
expect_equal(mode(tmp),"numeric")
expect_equivalent(tmp,array(c(1,1,1),dimnames=list(c("A","B","C"))))
# 2-D example of sd
tmp <- sumTable(dat~g1*g2,data=d,FUN=sd)
expect_is(tmp,"matrix")
expect_equal(mode(tmp),"numeric")
expect_equal(nrow(tmp),3)
expect_equal(ncol(tmp),3)
expect_equivalent(tmp,matrix(NA,nrow=3,ncol=3,byrow=TRUE))
})
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.