cat("\nTests for 'CheckData'")
test_that("basic valid lists arguments do not return any errors ", {
CheckData(y = list(c(1,2,3), c(1,2)), t = list(c(1,2,3), c(1,2)))
CheckData(t = list(c(1,2,3), c(1,2)), y = list(runif(3), runif(2)))
})
test_that("basic invalid nolists arguments do return errors ", {
# expect_equal(CheckData( runif(4), list(c(1,2,NA), c(1,2)) ), TRUE) # We handle NA now
# expect_equal(CheckData( list(c(1,2,3), c(1,NA)), runif(3) ), TRUE) # We handle NA now
expect_error(CheckData( matrix(1:6,2,3), list(c(1,2,3), c(1,2)) ), 'y should be list')
expect_error(CheckData( list(c(1,2,3), c(1,2)), matrix(1:6,2,3) ), 't should be list')
})
test_that("basic checks where input data has an additional arbitray value works (issue #9) ", {
data(medfly25)
Flies1 <- MakeFPCAInputs(medfly25$ID, medfly25$Days, medfly25$nEggs)
class(Flies1$Ly[[1]]) <- append(Flies1$Ly[[1]], "some")
expect_s3_class(FPCA(Ly= Flies1$Ly[1:100], Lt= Flies1$Lt[1:100] ), 'FPCA')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.