Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(WMWssp)
  > 
  > test_check("WMWssp")
  -- 1. Error: (unknown) (@test_MinMax.R#14)  ------------------------------------
  replacement has 2 rows, data has 1
  1: summary(WMWssp::WMWssp_minimize(x, y, simulation = TRUE, nsim = 50)) at testthat/test_MinMax.R:14
  2: WMWssp::WMWssp_minimize(x, y, simulation = TRUE, nsim = 50)
  3: `[<-`(`*tmp*`, 2, 1, value = 0.8)
  4: `[<-.data.frame`(`*tmp*`, 2, 1, value = 0.8)
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = c(0.05, NA))
  7: `[[<-.data.frame`(`*tmp*`, i, value = c(0.05, NA))
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 2. Error: (unknown) (@test_WMWssp.R#13)  ------------------------------------
  replacement has 2 rows, data has 1
  1: WMWssp::WMWssp(x, y, alpha = 0.05, power = 0.8, t = 1/2, simulation = TRUE, nsim = 10) at testthat/test_WMWssp.R:13
  2: `[<-`(`*tmp*`, 2, 1, value = 0.8)
  3: `[<-.data.frame`(`*tmp*`, 2, 1, value = 0.8)
  4: xpdrows.data.frame(x, rows, new.rows)
  5: `[[<-`(`*tmp*`, i, value = c(0.05, NA))
  6: `[[<-.data.frame`(`*tmp*`, i, value = c(0.05, NA))
  7: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 3. Error: function Noether (@test_noether.R#15)  ----------------------------
  replacement has 2 rows, data has 1
  1: expect_equivalent(WMWssp::WMWssp_noether(alpha = 0.05, power = 0.8, t = 1/2, p = 0.349)$result[4, 
         ], result_noetherN, tolerance = 1e-04) at testthat/test_noether.R:15
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: WMWssp::WMWssp_noether(alpha = 0.05, power = 0.8, t = 1/2, p = 0.349)
  5: `[<-`(`*tmp*`, 2, 1, value = 0.8)
  6: `[<-.data.frame`(`*tmp*`, 2, 1, value = 0.8)
  7: xpdrows.data.frame(x, rows, new.rows)
  8: `[[<-`(`*tmp*`, i, value = c(0.05, NA))
  9: `[[<-.data.frame`(`*tmp*`, i, value = c(0.05, 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: 0 SKIPPED: 0 FAILED: 3
  1. Error: (unknown) (@test_MinMax.R#14) 
  2. Error: (unknown) (@test_WMWssp.R#13) 
  3. Error: function Noether (@test_noether.R#15) 
  
  Error: testthat unit tests failed
  Execution halted