tests/testthat/test_pre.R

In neutroSurvey: Neutrosophic Survey Data Analysis

#test_that("PRE calculation works", {
  # Create test MSE results
  #test_mse <- list(
   # MSE = c(Lower = 0.5, Upper = 0.6),
    #MSE1 = c(Lower = 0.4, Upper = 0.5),
    #MSE2 = c(Lower = 0.3, Upper = 0.4),
    #MSE_exp = c(Lower = 0.2, Upper = 0.3),
    #MSE_r = c(Lower = 0.1, Upper = 0.2)
  #)

  #pre <- calculate_pre(test_mse)

  # Verify calculations
  #expect_equal(pre$PRE_t0, c(Lower = 400, Upper = 300))
  #expect_equal(pre$PRE_t1, c(Lower = 100, Upper = 250))
  #expect_equal(pre$PRE_r, c(Lower = 100, Upper = 100))
#})

#test_that("PRE handles invalid input", {
  #expect_error(calculate_pre(list()))
  #expect_error(calculate_pre("invalid"))
#})