Running ‘test-all.R’ [94s/125s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check('ggfortify')
  Loading required package: ggfortify
  Loading required package: ggplot2
  ── 1. Error: fortify.MSwM works for sample data (@test-MSwM.R#7)  ──────────────
  Lapack routine dgesv: system is exactly singular: U[4,4] = 0
  1: MSwM::msmFit(lm(Data ~ . - 1, data = d), k = 2, sw = rep(TRUE, 2), control = list(parallelization = FALSE)) at testthat/test-MSwM.R:7
  2: MSwM::msmFit(lm(Data ~ . - 1, data = d), k = 2, sw = rep(TRUE, 2), control = list(parallelization = FALSE))
  3: em(ans, control)
  4: em(ans, control)
  5: hessian(object)
  6: hessian(object)
  7: diag(solve(res$Hessian))
  8: solve(res$Hessian)
  9: solve.default(res$Hessian)
  
  initial  value 7.505733 
  final  value 7.505688 
  converged
  Initial stress        : 0.01705
  stress after  10 iters: 0.00951, magic = 0.500
  stress after  20 iters: 0.00941, magic = 0.500
  initial  value 7.505733 
  final  value 7.505688 
  converged
  Initial stress        : 0.01705
  stress after  10 iters: 0.00951, magic = 0.500
  stress after  20 iters: 0.00941, magic = 0.500
  ── 2. Error: gglagplot (@test-tslib.R#103)  ────────────────────────────────────
  `x` must be a vector, not a ts object, do you want `stats::lag()`?
  1: gglagplot(AirPassengers) at testthat/test-tslib.R:103
  2: dplyr::bind_rows(lapply(seq(1:lags), .lag))
  3: flatten_bindable(dots_values(...))
  4: dots_values(...)
  5: map(dots, function(dot) eval_bare(dot$expr, dot$env))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: eval_bare(dot$expr, dot$env)
  9: lapply(seq(1:lags), .lag)
  10: FUN(X[[i]], ...)
  11: as.vector(lag(ts, k))
  12: lag(ts, k)
  13: bad_args("x", "must be a vector, not a ts object, do you want `stats::lag()`?")
  14: glubort(fmt_args(args), ..., .envir = .envir)
  15: .abort(text)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 1439 SKIPPED: 9 FAILED: 2
  1. Error: fortify.MSwM works for sample data (@test-MSwM.R#7) 
  2. Error: gglagplot (@test-tslib.R#103) 
  
  Error: testthat unit tests failed
  Execution halted