context("Testing suberbToWide()")
test_that("TESTS (1/4)", {
old <- options()
on.exit(options(old))
options("superb.feedback" = 'none')
names(Orange) <- c("Tree","age","DV")
Owide <- superbToWide(Orange, id = "Tree", WSFactors = "age", variable = "DV" )
expect_output( str(Owide), "data.frame")
expect_equal( Owide$DV.118[1], 30)
expect_equal( Owide$DV.1582[5], 177)
# restores default information
options("superb.feedback" = c('design','warnings','summary'))
})
test_that("TESTS (2/4)", {
old <- options()
on.exit(options(old))
options("superb.feedback" = 'none')
ss <- 3
dta <- GRD( BSFactors = "Moment (2)", SubjectsPerGroup = ss)
dta$id = ((dta$id-1)%%ss)+1
tt <- superbToWide(dta, id = "id", WSFactors = "Moment", variable = "DV" )
expect_output( str(tt), "data.frame")
expect_equal( dta$DV[1], tt$DV.1[1])
expect_equal( dta$DV[ss*2], tt$DV.2[ss])
# restores default information
options("superb.feedback" = c('design','warnings','summary'))
})
test_that("TESTS (3/4)", {
old <- options()
on.exit(options(old))
options("superb.feedback" = 'none')
ss <- 7
dta <- GRD( BSFactors = c("Moment (2)","time(3)","what(5)"), SubjectsPerGroup = ss)
dta$id = ((dta$id-1)%%(ss))+1
tt <- superbToWide(dta, id = "id", WSFactors = c("Moment","time","what"), variable = "DV" )
expect_output( str(tt), "data.frame")
expect_equal( dta$DV[1], tt$DV.1.1.1[1])
expect_equal( dta$DV[ss*2*3*5], tt$DV.2.3.5[ss])
# restores default information
options("superb.feedback" = c('design','warnings','summary'))
})
test_that("TESTS (3/4)", {
old <- options()
on.exit(options(old))
options("superb.feedback" = 'none')
ss <-13
dta <- GRD( BSFactors = c("Moment (2)","time(3)","what(5)","bis(7)"), SubjectsPerGroup = ss)
dta$id = ((dta$id-1)%%(ss))+1
tt <- superbToWide(dta, id = "id", WSFactors = c("Moment","time","what","bis"), variable = "DV" )
expect_output( str(tt), "data.frame")
expect_equal( dta$DV[1], tt$DV.1.1.1.1[1])
expect_equal( dta$DV[ss*2*3*5*7], tt$DV.2.3.5.7[ss])
# restores default information
options("superb.feedback" = c('design','warnings','summary'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.