tests/testthat/test_state_na_rm.R

In cvcqv: Coefficient of Variation (CV) with Confidence Intervals (CI)

context("state_na_rm")
test_that(
  desc = "understands the default value of na.rm = FALSE",
  {
    x <- 1:10
    expect_false(
      CoefVar$new(x)$na.rm
    )
    expect_false(
      CoefQuartVar$new(x)$na.rm
    )
    expect_false(
      CoefVarCI$new(x)$na.rm
    )
    expect_false(
      CoefQuartVarCI$new(x)$na.rm
    )
    expect_false(
      BootCoefVar$new(x)$na.rm
    )
    expect_false(
      BootCoefQuartVar$new(x)$na.rm
    )
    expect_false(
      SampleQuantiles$new(x)$na.rm
    )
    expect_false(
      formals(cv_versatile)$na.rm
    )
    expect_false(
      formals(cqv_versatile)$na.rm
    )
  }
)
test_that(
  desc = "understands the user input of na.rm = TRUE",
  {
    y <- c(1, 2.6, 10, NA, 6.8, NA)
    expect_true(
      CoefVar$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      CoefVar$new(x = y, na.rm = TRUE)$est(), 80
    )
    expect_true(
      CoefQuartVar$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      CoefQuartVar$new(x = y, na.rm = TRUE)$est(), 55.1
    )
    expect_true(
      CoefVarCI$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      CoefVarCI$new(x = y, na.rm = TRUE)$kelley_ci()$statistics$est, 80
    )
    expect_true(
      CoefQuartVarCI$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      CoefQuartVarCI$new(x = y, na.rm = TRUE)$norm_ci()$statistics$est,
      55.1
    )
    expect_true(
      BootCoefVar$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      mean(BootCoefVar$new(x = y, na.rm = TRUE)$boot_cv()$data), 5.1
    )
    expect_true(
      BootCoefQuartVar$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      BootCoefQuartVar$new(x = y, na.rm = TRUE)$boot_cqv()$t0, 55.10204
    )
    expect_true(
      SampleQuantiles$new(x = y, na.rm = TRUE)$na.rm
    )
    expect_equal(
      SampleQuantiles$new(y, na.rm = TRUE, names = FALSE)$qx(), 4.7
    )
    expect_equal(
      cv_versatile(y, na.rm = TRUE, method = "kelley")$statistics$est, 80
    )
    expect_equal(
      cqv_versatile(y, na.rm = TRUE, method = "bonett")$statistics$est,
      55.1
    )
  }
)
# test_that(
#     desc = "correct missing handling when x is data.frame", {
#         df <- data.frame(
#             id = c(1:3, NA),
#             gender = c("m", "f", "m", NA),
#             fbs = c(104, 98, 129, NA)
#         )
#     }
# )