Nothing
## Tests for whatif function
## Error tests
data("peacef")
data("peacecf")
test_that('FAIL Test: reject bad cfact inputs', {
skip_on_cran()
## missing cfact test
expect_error(whatif(data = peacef),
regexp = 'argument "cfact" is missing, with no default')
## bad data type
expect_error(whatif(cfact = 1, data = peacef),
regexp = "'cfact' must be either a string, a R data frame, or a R non-character matrix")
## no rows cfact
expect_error(whatif(cfact = data.frame(), data = peacef),
regexp = "no counterfactuals supplied: 'cfact' contains zero rows")
## missing data error
expect_error(whatif(cfact = matrix(),data = peacef),
regexp = "there are no cases in 'cfact' without missing values")
## different data and cfact dimensions
expect_error(whatif(cfact = matrix(data = 1, ncol = 10), data = peacef),
regexp = "number of columns of 'cfact' and 'data' are not equal")
})
test_that('FAIL Test: reject bad data inputs', {
skip_on_cran()
## data argument is missing
expect_error(whatif(cfact = peacecf),
regexp = 'argument "data" is missing, with no default')
## bad list test
expect_error(whatif(cfact = peacecf, data = list(x = "", y = "")),
regexp = "the list supplied to 'data' is not a valid output object")
## empty data
expect_error(whatif(cfact = peacecf, data = data.frame()),
regexp = "no observed covariate data supplied: 'data' contains zero rows")
## all rows have missing data
missing.data <- peacecf
missing.data$bad <- NA
expect_error(whatif(cfact = peacecf, data = missing.data),
regexp = "there are no cases in 'data' without missing values")
})
test_that('Fail Test: reject bad formulas',{
skip_on_cran()
## check formula label requirement
expect_error(whatif(data = peacef, cfact = peacecf, formula = ~x),
regexp = "variables in 'formula' either unlabeled or not present in 'data'")
})
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.