Running 'testthat.R' [14s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(mkin)
  > 
  > test_check("mkin")
  -- 1. Error: Fits without formation fractions are correct for FOCUS D (@test_FOC
  replacement has 2 rows, data has 1
  1: expect_equal(signif(summary(fit.default)$bpar[, "t value"], 5), c(parent_0 = 61.72, 
         k_parent_sink = 12.777, k_parent_m1 = 24.248, k_m1_sink = 7.3486)) at testthat/test_FOCUS_D_UBA_expertise.R:33
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: summary(fit.default)
  5: summary.mkinfit(fit.default)
  6: mkinerrmin(object, alpha = 0.05)
  7: `[<-`(`*tmp*`, obs_var, c("err.min", "n.optim", "df"), value = list(err.min = 0.0682748650406, 
         n.optim = 3, df = 6))
  8: `[<-.data.frame`(`*tmp*`, obs_var, c("err.min", "n.optim", "df"), value = list(err.min = 0.0682748650406, 
         n.optim = 3, df = 6))
  9: xpdrows.data.frame(x, rows, new.rows)
  10: `[[<-`(`*tmp*`, i, value = c(0.0639777210758505, NA))
  11: `[[<-.data.frame`(`*tmp*`, i, value = c(0.0639777210758505, NA))
  12: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 2. Error: Chi2 error levels for FOCUS D are as in mkin 0.9-33 (@test_FOCUS_ch
  replacement has 2 rows, data has 1
  1: expect_equal(round(mkinerrmin(fit), 4), errmin.FOCUS_2006_D_rounded) at testthat/test_FOCUS_chi2_error_level.R:37
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: mkinerrmin(fit)
  5: `[<-`(`*tmp*`, obs_var, c("err.min", "n.optim", "df"), value = list(err.min = 0.0645948923974163, 
         n.optim = 2, df = 7))
  6: `[<-.data.frame`(`*tmp*`, obs_var, c("err.min", "n.optim", "df"), value = list(err.min = 0.0645948923974163, 
         n.optim = 2, df = 7))
  7: xpdrows.data.frame(x, rows, new.rows)
  8: `[[<-`(`*tmp*`, i, value = c(0.0639777210758694, NA))
  9: `[[<-.data.frame`(`*tmp*`, i, value = c(0.0639777210758694, NA))
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  == testthat results  ===========================================================
  OK: 12 SKIPPED: 14 FAILED: 2
  1. Error: Fits without formation fractions are correct for FOCUS D (@test_FOCUS_D_UBA_expertise.R#33) 
  2. Error: Chi2 error levels for FOCUS D are as in mkin 0.9-33 (@test_FOCUS_chi2_error_level.R#37) 
  
  Error: testthat unit tests failed
  Execution halted