Running 'testthat.R' [27s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # Copyright (c) 2016 Nuno Fachada
  > # Distributed under the MIT License (http://opensource.org/licenses/MIT)
  > 
  > library(testthat)
  > 
  > test_check("micompr")
  Loading required package: micompr
  -- 1. Error: assumptions_manova constructs the expected objects (@test_assumptio
  replacement has 2 rows, data has 1
  1: assumptions_manova(iris[, 1:4], iris[, 5]) at testthat/test_assumptions.R:25
  2: MVN::mvn(data[fidx, ], mvnTest = "royston")
  3: royston(data, tol = tol)
  4: `[<-`(`*tmp*`, i, 1, value = c(W = 1.13263718052623e+60))
  5: `[<-.data.frame`(`*tmp*`, i, 1, value = c(W = 1.13263718052623e+60))
  6: xpdrows.data.frame(x, rows, new.rows)
  7: `[[<-`(`*tmp*`, i, value = c(1.13204444895044e+60, NA))
  8: `[[<-.data.frame`(`*tmp*`, i, value = c(1.13204444895044e+60, NA))
  9: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 2. Error: assumptions_manova throws the expected warnings (@test_assumptions.
  replacement has 2 rows, data has 1
  1: expect_warning(assumptions_manova(bogus_data, factors), "Royston test requires at least 4 observations", 
         fixed = TRUE) at testthat/test_assumptions.R:59
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: assumptions_manova(bogus_data, factors)
  7: MVN::mvn(data[fidx, 1:min(nobs - 1, nvars)], mvnTest = "royston")
  8: royston(data, tol = tol)
  9: `[<-`(`*tmp*`, i, 1, value = c(W = -0.548314106177241))
  10: `[<-.data.frame`(`*tmp*`, i, 1, value = c(W = -0.548314106177241))
  11: xpdrows.data.frame(x, rows, new.rows)
  12: `[[<-`(`*tmp*`, i, value = c(0.488845490625, NA))
  13: `[[<-.data.frame`(`*tmp*`, i, value = c(0.488845490625, NA))
  14: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 3. Error: assumptions.cmpoutput creates the correct object (@test_cmpoutput.R
  replacement has 2 rows, data has 1
  1: assumptions(cmp) at testthat/test_cmpoutput.R:214
  2: assumptions.cmpoutput(cmp)
  3: assumptions_manova(scores[, 1:npcs[i]], obs_lvls)
  4: MVN::mvn(data[fidx, ], mvnTest = "royston")
  5: royston(data, tol = tol)
  6: `[<-`(`*tmp*`, i, 1, value = c(W = 0.0723742657749057))
  7: `[<-.data.frame`(`*tmp*`, i, 1, value = c(W = 0.0723742657749057))
  8: xpdrows.data.frame(x, rows, new.rows)
  9: `[[<-`(`*tmp*`, i, value = c(-0.200812914784538, NA))
  10: `[[<-.data.frame`(`*tmp*`, i, value = c(-0.200812914784538, NA))
  11: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 4. Error: micomp assumptions have the correct properties (@test_micomp.R#281)
  replacement has 2 rows, data has 1
  1: assumptions(mic1a) at testthat/test_micomp.R:281
  2: assumptions.micomp(mic1a)
  3: lapply(obj, function(x) assumptions(x))
  4: FUN(X[[i]], ...)
  5: assumptions(x)
  6: assumptions.cmpoutput(x)
  7: assumptions_manova(scores[, 1:npcs[i]], obs_lvls)
  8: MVN::mvn(data[fidx, ], mvnTest = "royston")
  9: royston(data, tol = tol)
  10: `[<-`(`*tmp*`, i, 1, value = c(W = -0.113953291077637))
  11: `[<-.data.frame`(`*tmp*`, i, 1, value = c(W = -0.113953291077637))
  12: xpdrows.data.frame(x, rows, new.rows)
  13: `[[<-`(`*tmp*`, i, value = c(-0.29285253014617, NA))
  14: `[[<-.data.frame`(`*tmp*`, i, value = c(-0.29285253014617, NA))
  15: 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: 359 SKIPPED: 0 FAILED: 4
  1. Error: assumptions_manova constructs the expected objects (@test_assumptions.R#25) 
  2. Error: assumptions_manova throws the expected warnings (@test_assumptions.R#59) 
  3. Error: assumptions.cmpoutput creates the correct object (@test_cmpoutput.R#214) 
  4. Error: micomp assumptions have the correct properties (@test_micomp.R#281) 
  
  Error: testthat unit tests failed
  Execution halted