model_points_etr_II[["eilers_peeters"]] (`actual`) not equal to 40 (`expected`).

  `actual`: 39.0
`expected`: 40.0

test_data_dir <- file.path(getwd(), "data", "bulk")

model_points_etr_II[["vollenweider"]] (`actual`) not equal to 40 (`expected`).

  `actual`: 41.0
`expected`: 40.0

result[["eilers_peeters_total"]] (`actual`) not equal to 48 (`expected`).

  `actual`: 47.0
`expected`: 48.0

test_that("compare_regression_models etr I + II", {
eilers_peeters_total <- model_points_etr_I[["eilers_peeters"]] + model_points_etr_II[["eilers_peeters"]]
platt_total <- model_points_etr_I[["platt"]] + model_points_etr_II[["platt"]]
vollenweider_total <- model_points_etr_I[["vollenweider"]] + model_points_etr_II[["vollenweider"]]
walsby_total <- model_points_etr_I[["walsby"]] + model_points_etr_II[["walsby"]]

result[["vollenweider_total"]] (`actual`) not equal to 50 (`expected`).

  `actual`: 51.0
`expected`: 50.0

model_result[["sdiff"]] (`actual`) not equal to 1709.3953 (`expected`).

  `actual`: 1709.39617
`expected`: 1709.39530

test_that("test-platt_etr_I generate regression 20231122_01.csv", {
test_data_file <- file.path(getwd(), "data", "20231122_01.csv")
expect_equal(model_result[["alpha"]], 0.23751254, tolerance = 0.0000001)
test_that("test-platt_etr_I control plot 20231122_01.csv", {
test_that("test-platt_etr_I generate regression modified 20231122_01.csv", {
expect_equal(model_result[["b"]], 0.23751254, tolerance = 0.0000001)
test_that("test-platt_etr_I modified control plot 20231122_01.csv", {

"test-platt_etr_I generate regression modified 20231122_01.csv"
"test-platt_etr_I modified control plot 20231122_01.csv"

model_result[["alpha"]] (`actual`) not equal to 0.23751254 (`expected`).

  `actual`: 0.23751227
`expected`: 0.23751254

model_result[["beta"]] (`actual`) not equal to 38.788443 (`expected`).

  `actual`: 31.2
`expected`: 38.8

model_result[["ps"]] (`actual`) not equal to 56442.6305 (`expected`).

  `actual`: 45468.8
`expected`: 56442.6

model_result[["ik"]] (`actual`) not equal to 533.68312 (`expected`).

  `actual`: 533.68407
`expected`: 533.68312