library(testthat)
#sdc without missing values
test_that("numeric without missing values", {
sample_Data <- array(c(2, 3, 2, 2, 3, 3, 1, 2, 3, 3, 3, 3, 3, 3, 4, 3, 1, 3, 1, 2, 1, 1, 1, 1), dim = c(8,3))
colnames(sample_Data) <- c("A", "B", "C")
sample_Data <- as.data.frame(sample_Data)
sample_Data <- createSdcObj(sample_Data, keyVars = c(1,2,3))
sample_Data <- varToFactor(sample_Data, "A")
expect_equal(all(sapply(sample_Data@manipKeyVars$A, is.factor)), TRUE)
expect_equal(all(sapply(sample_Data@manipKeyVars$B, is.numeric)), TRUE)
expect_equal(all(sapply(sample_Data@manipKeyVars$C, is.numeric)), TRUE)
})
#sdc with missing values
test_that("numeric with missing values", {
sample_Data <- array(c(2, 3, NA, 2, 3, NA, 1, 2, 3, NA, 3, 3, 3, 3, NA, 3, 1, 3, NA, 2, 1, 1, 1, 1), dim = c(8,3))
colnames(sample_Data) <- c("A", "B", "C")
sample_Data <- as.data.frame(sample_Data)
sample_Data <- createSdcObj(sample_Data, keyVars = c(1,2,3))
sample_Data <- varToFactor(sample_Data, "A")
expect_equal(all(sapply(sample_Data@manipKeyVars$A, is.factor)), TRUE)
expect_equal(all(sapply(sample_Data@manipKeyVars$B, is.numeric)), TRUE)
expect_equal(all(sapply(sample_Data@manipKeyVars$C, is.numeric)), TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.