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

  `actual`: 3.042287
`expected`: 3.042345

test_that("test-vollenweider_etr_II generate regression 20231122_01.csv", {
expect_equal(model_result[["a"]], 0.00243709, tolerance = 0.00001)
expect_equal(model_result[["alpha"]], -0.00001386, tolerance = 0.0001)
test_that("test-vollenweider_etr_II control plot 20231122_01.csv", {

model_result[["pmax"]] (`actual`) not equal to 36.644038 (`expected`).

  `actual`: 36.64392
`expected`: 36.64404

model_result[["n"]] (`actual`) not equal to 1059.2046 (`expected`).

  `actual`: 1258.3
`expected`: 1059.2

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

  `actual`: 410.3232
`expected`: 410.3248

model_result[["popt"]] (`actual`) not equal to 30.70697 (`expected`).

  `actual`: 30.70728
`expected`: 30.70697

model_result[["iik"]] (`actual`) not equal to 343.844 (`expected`).

  `actual`: 343.8472
`expected`: 343.8440

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

  `actual`: 1247.80
`expected`: 1247.65

test_that("test-walsby_etr_I generate regression 20231122_01.csv", {
test_that("test-walsby_etr_I control plot 20231122_01.csv", {
test_that("test-walsby_etr_I generate regression modified 20231122_01.csv", {
test_that("test-walsby_etr_I modified control plot 20231122_01.csv", {
"walsby ETR I modified 20231122_01.csv",

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

model_result[["etr_max"]] (`actual`) not equal to 3970930.3 (`expected`).

  `actual`: 3526486.4
`expected`: 3970930.3

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

  `actual`: 26.1
`expected`: 27.7

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

  `actual`: -25.9
`expected`: -27.5

test-walsby_etr_I generate regression modified 20231122_01.csv

model_result[["a"]] (`actual`) not equal to 3970930.3 (`expected`).

  `actual`: 3526486.4
`expected`: 3970930.3