Running 'testthat.R' [4s/5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(edwards97)
  > 
  > test_check("edwards97")
  [ FAIL 3 | WARN 6 | SKIP 0 | PASS 80 ]
  
  == Failed tests ================================================================
  -- Failure (test-fit.R:16:3): edwards_fit_optim works --------------------------
  `expect_identical\(print\(fit\), fit\)` does not match "<edwards_fit_optim>".
  Actual value: "<edwards_fit_optim>\\n  Fit optimised for `fit_data_alum`\\n  Coefficients:\\n    x3 = 5\.48, x2 = -78\.3, x1 = 285, K1 = -0\.0896, K2 = 0\.362, b = 0\.046, root = -1\\n  Performance:\\n    r\\xb2 = 0\.959, RMSE = 1\.17 mg/L, number of finite observations = 534\\n  Input data:\\n      DOC              dose               pH            UV254       \\n Min\.   : 1\.800   Min\.   :0\.00000   Min\.   :4\.500   Min\.   :0\.0260  \\n 1st Qu\.: 2\.900   1st Qu\.:0\.06734   1st Qu\.:6\.072   1st Qu\.:0\.0810  \\n Median : 4\.000   Median :0\.16835   Median :6\.590   Median :0\.1200  \\n Mean   : 6\.595   Mean   :0\.21998   Mean   :6\.540   Mean   :0\.1975  \\n 3rd Qu\.: 8\.600   3rd Qu\.:0\.32338   3rd Qu\.:7\.018   3rd Qu\.:0\.2060  \\n Max\.   :26\.500   Max\.   :1\.51515   Max\.   :8\.830   Max\.   :1\.3550  \\n NA's   :383                                                        \\n   DOC_final       Predictions        Langmuir a     Sorbable DOC \(%\)\\n Min\.   : 0\.760   Min\.   : 0\.6722   Min\.   : 38\.09   Min\.   : 76\.55  \\n 1st Qu\.: 2\.070   1st Qu\.: 2\.0755   1st Qu\.: 41\.23   1st Qu\.: 83\.73  \\n Median : 2\.690   Median : 2\.9651   Median : 50\.12   Median : 90\.68  \\n Mean   : 3\.835   Mean   : 4\.2566   Mean   : 62\.41   Mean   : 91\.75  \\n 3rd Qu\.: 4\.001   3rd Qu\.: 5\.1763   3rd Qu\.: 73\.00   3rd Qu\.: 96\.05  \\n Max\.   :30\.500   Max\.   :25\.5534   Max\.   :196\.91   Max\.   :115\.15  \\n                  NA's   :420                        NA's   :383     "
  Backtrace:
      x
   1. \-testthat::expect_output(expect_identical(print(fit), fit), "<edwards_fit_optim>") at test-fit.R:16:2
   2.   \-testthat::expect_match(...)
   3.     \-testthat:::expect_match_(...)
  -- Failure (test-fit.R:38:3): edwards_fit_coefs() works with data --------------
  `expect_identical\(print\(fit\), fit\)` does not match "<edwards_fit_coefs>".
  Actual value: "<edwards_fit_coefs>\\n  Fit with coefs `edwards_coefs\("Al"\)` validated using `fit_data_alum`\\n  Coefficients:\\n    x3 = 4\.91, x2 = -72\.2, x1 = 284, K1 = -0\.075, K2 = 0\.56, b = 0\.147, root = -1\\n  Performance:\\n    r\\xb2 = 0\.945, RMSE = 2\.27 mg/L, number of finite observations = 534\\n  Input data:\\n      DOC              dose               pH            UV254       \\n Min\.   : 1\.800   Min\.   :0\.00000   Min\.   :4\.500   Min\.   :0\.0260  \\n 1st Qu\.: 2\.900   1st Qu\.:0\.06734   1st Qu\.:6\.072   1st Qu\.:0\.0810  \\n Median : 4\.000   Median :0\.16835   Median :6\.590   Median :0\.1200  \\n Mean   : 6\.595   Mean   :0\.21998   Mean   :6\.540   Mean   :0\.1975  \\n 3rd Qu\.: 8\.600   3rd Qu\.:0\.32338   3rd Qu\.:7\.018   3rd Qu\.:0\.2060  \\n Max\.   :26\.500   Max\.   :1\.51515   Max\.   :8\.830   Max\.   :1\.3550  \\n NA's   :383                                                        \\n   DOC_final       Predictions        Langmuir a    Sorbable DOC \(%\)\\n Min\.   : 0\.760   Min\.   : 0\.8567   Min\.   :134\.1   Min\.   :54\.67   \\n 1st Qu\.: 2\.070   1st Qu\.: 1\.4700   1st Qu\.:136\.8   1st Qu\.:60\.69   \\n Median : 2\.690   Median : 2\.1278   Median :144\.3   Median :66\.50   \\n Mean   : 3\.835   Mean   : 3\.0109   Mean   :154\.4   Mean   :67\.40   \\n 3rd Qu\.: 4\.001   3rd Qu\.: 3\.6562   3rd Qu\.:163\.6   3rd Qu\.:71\.00   \\n Max\.   :30\.500   Max\.   :22\.9771   Max\.   :263\.4   Max\.   :87\.00   \\n                  NA's   :420                       NA's   :383     "
  Backtrace:
      x
   1. \-testthat::expect_output(expect_identical(print(fit), fit), "<edwards_fit_coefs>") at test-fit.R:38:2
   2.   \-testthat::expect_match(...)
   3.     \-testthat:::expect_match_(...)
  -- Failure (test-fit.R:51:3): edwards_fit_coefs() works without data -----------
  `expect_identical\(print\(fit\), fit\)` does not match "<edwards_fit_coefs>".
  Actual value: "<edwards_fit_coefs>\\n  Fit with coefs `edwards_coefs\("Al"\)` validated using `edwards_data\("empty"\)`\\n  Coefficients:\\n    x3 = 4\.91, x2 = -72\.2, x1 = 284, K1 = -0\.075, K2 = 0\.56, b = 0\.147, root = -1\\n  Performance:\\n    r\\xb2 = NA, RMSE = NaN mg/L, number of finite observations = 0\\n  Input data:\\n      DOC           dose           pH          UV254       DOC_final  \\n Min\.   : NA   Min\.   : NA   Min\.   : NA   Min\.   : NA   Min\.   : NA  \\n 1st Qu\.: NA   1st Qu\.: NA   1st Qu\.: NA   1st Qu\.: NA   1st Qu\.: NA  \\n Median : NA   Median : NA   Median : NA   Median : NA   Median : NA  \\n Mean   :NaN   Mean   :NaN   Mean   :NaN   Mean   :NaN   Mean   :NaN  \\n 3rd Qu\.: NA   3rd Qu\.: NA   3rd Qu\.: NA   3rd Qu\.: NA   3rd Qu\.: NA  \\n Max\.   : NA   Max\.   : NA   Max\.   : NA   Max\.   : NA   Max\.   : NA  \\n  Predictions    Langmuir a  Sorbable DOC \(%\)\\n Min\.   : NA   Min\.   : NA   Min\.   : NA     \\n 1st Qu\.: NA   1st Qu\.: NA   1st Qu\.: NA     \\n Median : NA   Median : NA   Median : NA     \\n Mean   :NaN   Mean   :NaN   Mean   :NaN     \\n 3rd Qu\.: NA   3rd Qu\.: NA   3rd Qu\.: NA     \\n Max\.   : NA   Max\.   : NA   Max\.   : NA     "
  Backtrace:
      x
   1. \-testthat::expect_output(expect_identical(print(fit), fit), "<edwards_fit_coefs>") at test-fit.R:51:2
   2.   \-testthat::expect_match(...)
   3.     \-testthat:::expect_match_(...)
  
  [ FAIL 3 | WARN 6 | SKIP 0 | PASS 80 ]
  Error: Test failures
  Execution halted