tests/testthat/test_state_x.R

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

context("state_x")
test_that(
  desc = "error message is thrown when x is NULL",
  {
    x <- NULL
    expect_error(
      CoefVar$new(x, na.rm = FALSE)$est(),
      "object 'x' not found"
    )
    expect_error(
      CoefQuartVar$new(x, na.rm = FALSE)$est(),
      "object 'x' not found"
    )
    expect_error(
      CoefVarCI$new(x, na.rm = FALSE)$kelley_ci(),
      "object 'x' not found"
    )
    expect_error(
      CoefQuartVarCI$new(x, na.rm = FALSE)$bonett_ci(),
      "object 'x' not found"
    )
    expect_error(
      BootCoefVar$new(x, na.rm = FALSE)$boot_cv(),
      "object 'x' not found"
    )
    expect_error(
      BootCoefQuartVar$new(x, na.rm = FALSE)$boot_cqv(),
      "object 'x' not found"
    )
    expect_error(
      SampleQuantiles$new(x, na.rm = FALSE)$qx(),
      "object 'x' not found"
    )
    expect_error(
      cv_versatile(x, na.rm = FALSE),
      "object 'x' not found"
    )
    expect_error(
      cqv_versatile(x, na.rm = FALSE),
      "object 'x' not found"
    )
  }
)
test_that(
  desc = "error message is thrown when x is missing",
  {
    expect_error(
      CoefVar$new(na.rm = FALSE)$est(),
      "object 'x' not found"
    )
    expect_error(
      CoefQuartVar$new(na.rm = FALSE)$est(),
      "object 'x' not found"
    )
    expect_error(
      CoefVarCI$new(na.rm = FALSE)$kelley_ci(),
      "object 'x' not found"
    )
    expect_error(
      CoefQuartVarCI$new(na.rm = FALSE)$bonett_ci(),
      "object 'x' not found"
    )
    expect_error(
      BootCoefVar$new(na.rm = FALSE)$boot_cv(),
      "object 'x' not found"
    )
    expect_error(
      BootCoefQuartVar$new(na.rm = FALSE)$boot_cqv(),
      "object 'x' not found"
    )
    expect_error(
      SampleQuantiles$new(na.rm = FALSE)$qx(),
      "object 'x' not found"
    )
    expect_error(
      cv_versatile(na.rm = FALSE),
      "object 'x' not found"
    )
    expect_error(
      cqv_versatile(na.rm = FALSE),
      "object 'x' not found"
    )
  }
)
test_that(
  desc = "error message is thrown when x is NA",
  {
    x <- NA
    expect_error(
      CoefVar$new(x, na.rm = FALSE)$est(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefQuartVar$new(x, na.rm = FALSE)$est(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefVarCI$new(x, na.rm = FALSE)$kelley_ci(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefQuartVarCI$new(x, na.rm = FALSE)$bonett_ci(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      BootCoefVar$new(x, na.rm = FALSE)$boot_cv(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      BootCoefQuartVar$new(x, na.rm = FALSE)$boot_cqv(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      SampleQuantiles$new(x, na.rm = FALSE)$qx(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      cv_versatile(x, na.rm = FALSE),
      "argument is not a numeric vector"
    )
    expect_error(
      cqv_versatile(x, na.rm = FALSE),
      "argument is not a numeric vector"
    )
  }
)
test_that(
  desc = "error message is thrown when x has NA",
  {
    y <- c(NA, 6)
    expect_error(
      CoefVar$new(x = y, na.rm = FALSE)$est(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefQuartVar$new(x = y, na.rm = FALSE)$est(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefVarCI$new(x = y, na.rm = FALSE)$kelley_ci(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      CoefQuartVarCI$new(x = y, na.rm = FALSE)$bonett_ci(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      BootCoefVar$new(x = y, na.rm = FALSE)$boot_cv(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      BootCoefQuartVar$new(x = y, na.rm = FALSE)$boot_cqv(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      SampleQuantiles$new(x = y, na.rm = FALSE)$qx(),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      cv_versatile(x = y, na.rm = FALSE),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
    expect_error(
      cqv_versatile(x = y, na.rm = FALSE),
      "missing values and NaN's not allowed if 'na.rm' is FALSE"
    )
  }
)
test_that(
  desc = "error message is thrown when x is not numeric",
  {
    y <- c("a", "b")
    expect_error(
      CoefVar$new(x = y)$est(),
      "argument is not a numeric vector"
    )
    expect_error(
      CoefQuartVar$new(x = y)$est(),
      "argument is not a numeric vector"
    )
    expect_error(
      CoefVarCI$new(x = y)$kelley_ci(),
      "argument is not a numeric vector"
    )
    expect_error(
      CoefQuartVarCI$new(x = y)$bonett_ci(),
      "argument is not a numeric vector"
    )
    expect_error(
      BootCoefVar$new(x = y)$boot_cv(),
      "argument is not a numeric vector"
    )
    expect_error(
      BootCoefQuartVar$new(x = y)$boot_cqv(),
      "argument is not a numeric vector"
    )
    expect_error(
      SampleQuantiles$new(x = y)$qx(),
      "argument is not a numeric vector"
    )
    expect_error(
      cv_versatile(x = y),
      "argument is not a numeric vector"
    )
    expect_error(
      cqv_versatile(x = y),
      "argument is not a numeric vector"
    )
  }
)