tests/testthat/test_low_cuts.R
In CCMH-PSU/CCMHr: CCMH Data Cleaning
context("low_cuts")
library(CCMHr)
library(testthat)
test_data <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)), Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)), Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)), Academics34 = c(NA, seq(from = 0, to = 4, by = .5)), Eating34 = c(NA, seq(from = 0, to = 4, by = .5)), Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)), Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)), DI = c(NA, seq(from = 0, to = 4, by = .5)))
solution_data_2018 <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34 = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34 = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)),
DI = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
solution_data_2019 <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34 = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34 = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)),
DI = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
test_data_first <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)), Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)), Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)), Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)), Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)), Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)), Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)), DI_first = c(NA, seq(from = 0, to = 4, by = .5)))
solution_data_first_2018 <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)),
DI_first = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
solution_data_first_2019 <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)),
DI_first = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
# Tests
test_that("CCAPS34 cuts", {
expect_equal(ccaps34_cuts(test_data, first = F, version = "2018"), solution_data_2018)
})
test_that("CCAPS34_first cuts", {
expect_equal(ccaps34_cuts(test_data_first, first = T, version = "2018"), solution_data_first_2018)
})
test_that("CCAPS34 cuts", {
expect_equal(ccaps34_cuts(test_data, first = F, version = "2019"), solution_data_2019)
})
test_that("CCAPS34_first cuts", {
expect_equal(ccaps34_cuts(test_data_first, first = T, version = "2019"), solution_data_first_2019)
})
test_that("CCAPS34 cuts error", {
expect_error(ccaps34_cuts(data.frame(X = c(1, 2))))
})
CCMH-PSU/CCMHr documentation built on Jan. 31, 2024, 1:08 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("low_cuts")
library(CCMHr)
library(testthat)
test_data <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)), Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)), Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)), Academics34 = c(NA, seq(from = 0, to = 4, by = .5)), Eating34 = c(NA, seq(from = 0, to = 4, by = .5)), Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)), Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)), DI = c(NA, seq(from = 0, to = 4, by = .5)))
solution_data_2018 <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34 = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34 = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)),
DI = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
solution_data_2019 <- data.frame(Depression34 = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34 = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34 = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34 = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34 = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34 = c(NA, seq(from = 0, to = 4, by = .5)),
DI = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
test_data_first <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)), Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)), Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)), Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)), Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)), Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)), Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)), DI_first = c(NA, seq(from = 0, to = 4, by = .5)))
solution_data_first_2018 <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)),
DI_first = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
solution_data_first_2019 <- data.frame(Depression34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Social_Anxiety34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Academics34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Eating34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Hostility34_first = c(NA, seq(from = 0, to = 4, by = .5)),
Alcohol34_first = c(NA, seq(from = 0, to = 4, by = .5)),
DI_first = c(NA, seq(from = 0, to = 4, by = .5)),
Depression34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Depression34_hi_cut = c(NA, 0, 0, 0, 0, 1, 1, 1, 1, 1),
Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Social_Anxiety34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Social_Anxiety34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Academics34_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Academics34_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1),
Eating34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Eating34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Hostility34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Hostility34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
Alcohol34_low_cut = c(NA, 0, 0, 1, 1, 1, 1, 1, 1, 1),
Alcohol34_hi_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_low_cut = c(NA, 0, 0, 0, 1, 1, 1, 1, 1, 1),
DI_hi_cut = c(NA, 0, 0, 0, 0, 0, 1, 1, 1, 1))
# Tests
test_that("CCAPS34 cuts", {
expect_equal(ccaps34_cuts(test_data, first = F, version = "2018"), solution_data_2018)
})
test_that("CCAPS34_first cuts", {
expect_equal(ccaps34_cuts(test_data_first, first = T, version = "2018"), solution_data_first_2018)
})
test_that("CCAPS34 cuts", {
expect_equal(ccaps34_cuts(test_data, first = F, version = "2019"), solution_data_2019)
})
test_that("CCAPS34_first cuts", {
expect_equal(ccaps34_cuts(test_data_first, first = T, version = "2019"), solution_data_first_2019)
})
test_that("CCAPS34 cuts error", {
expect_error(ccaps34_cuts(data.frame(X = c(1, 2))))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.