model_result[["is"]] (`actual`) not equal to 237640.63 (`expected`).

  `actual`: 191437.6
`expected`: 237640.6

model_result[["ib"]] (`actual`) not equal to 1455.1404 (`expected`).

  `actual`: 1456.2
`expected`: 1455.1

model_result[["im"]] (`actual`) not equal to 1450.7034 (`expected`).

  `actual`: 1450.7072
`expected`: 1450.7034

test-platt_etr_I generate regression modified 20231122_01.csv

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

  `actual`: 45468.8
`expected`: 56442.6

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

  `actual`: 31.2
`expected`: 38.8

model_result[["etrmax_with_photoinhibition"]] (`actual`) not equal to 126.756436 (`expected`).

  `actual`: 126.756515
`expected`: 126.756436

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

  `actual`: 45468.8
`expected`: 56442.6

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

  `actual`: 533.68407
`expected`: 533.68312

model_result[["ik_without_photoinhibition"]] (`actual`) not equal to 237640.63 (`expected`).

  `actual`: 191437.6
`expected`: 237640.6

model_result[["im_with_photoinhibition"]] (`actual`) not equal to 1450.7034 (`expected`).

  `actual`: 1450.7072
`expected`: 1450.7034

model_result[["etrmax_with_without_ratio"]] (`actual`) not equal to 56442.6305/126.756436 (`expected`).

  `actual`: 358.7
`expected`: 445.3

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

  `actual`: 1100.14
`expected`: 1099.95

test_that("test-vollenweider_etr_I generate regression 20231122_01.csv", {
expect_equal(model_result[["a"]], 0.00016833, tolerance = 0.00001)
expect_equal(model_result[["alpha"]], -0.00001382, tolerance = 0.0001)
test_that("test-vollenweider_etr_I control plot 20231122_01.csv", {
test_that("test-vollenweider_etr_I generate regression modified 20231122_01.csv", {
expect_equal(model_result[["b"]], 0.00016833, tolerance = 0.00001)
expect_equal(model_result[["c"]], -0.00001382, tolerance = 0.0001)
test_that("test-vollenweider_etr_I modified control plot 20231122_01.csv", {
"vollenweider ETR I modified 20231122_01.csv",