tests/testthat/test-relative_root_mean_squared_error.R

In pam: Fast and Efficient Processing of PAM Data

test_that("test-relative_root_mean_squared_error - linux", {
  skip_if_not(is_reference_platform())

  test_data_file <- testthat::test_path("data", "dual_pam_data", "20240925.csv")
  data <- read_dual_pam_data(test_data_file)
  model_result <- walsby_generate_regression_ETR_II(data)
  etr_regression_data <- get_etr_regression_data_from_model_result(model_result)
  result <- get_etr_data_for_par_values(data, etr_regression_data, etr_2_type)

  relative_root_mean_squared_error <- relative_root_mean_squared_error(result)

  expect_equal(relative_root_mean_squared_error, 0.0331529227874065)
})

test_that("test-relative_root_mean_squared_error", {
  test_data_file <- testthat::test_path("data", "dual_pam_data", "20240925.csv")
  data <- read_dual_pam_data(test_data_file)
  model_result <- walsby_generate_regression_ETR_II(data)
  etr_regression_data <- get_etr_regression_data_from_model_result(model_result)
  result <- get_etr_data_for_par_values(data, etr_regression_data, etr_2_type)

  relative_root_mean_squared_error <- relative_root_mean_squared_error(result)
  expect_true(is.finite(relative_root_mean_squared_error))
})