Running ‘testthat.R’ [31s/34s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > if (require("testthat")) {
  +     test_check("surveillance")
  + }
  Loading required package: testthat
  Loading required package: surveillance
  Loading required package: sp
  Loading required package: xtable
  This is surveillance 1.18.0. For overview type 'help(surveillance)'.
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 3.881263e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 1.551014e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 3.859334e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 3.165475e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 1.877109e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 5.890145e-07"
  
  Penalized log-likelihood:
  Checking analytical score vector using numDeriv::grad() ...
  [1] TRUE
  Checking analytical Fisher information matrix using numDeriv::hessian() ...
  [1] "Mean relative difference: 1.363046e-07"
  'F' vs. cubature using method = "midpoint" ... 'F' vs. cubature using method = "SV" ... Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  'F' vs. cubature using method = "SV" ... Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  'F' vs. cubature using method = "SV" ... 'F' vs. cubature using method = "SV" ... Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  'F' vs. cubature using method = "midpoint" ... Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  Checking 'intrfr' against a numeric approximation ... OK
  'F' vs. cubature using method = "SV" ... 'F' vs. cubature using method = "midpoint" ... ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-siafs.R:25:5): Gaussian 'F.adaptive' implementation agrees with numerical approximation ──
  Error: inapplicable choice of bandwidth (eps=0.025) in midpoint rule:
  Error in loadNamespace(name): there is no package called 'spatstat.geom'
  
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::F(LETTERR, f, pars, type)
    8.             └─polyCub::polyCub.midpoint(polydomain, f, pars, type, eps = eps)
    9.               └─base::tryCatch(...)
   10.                 └─base:::tryCatchList(expr, classes, parentenv, handlers)
   11.                   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12.                     └─value[[3L]](cond)
  ── Error (test-siafs.R:25:5): Gaussian iso-C-implementation agrees with numerical approximation ──
  Error: there is no package called 'spatstat.geom'
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             └─polyCub::polyCub.SV(...)
    9.               ├─polyCub::xylist(polyregion)
   10.               └─polyCub:::xylist.owin(polyregion)
   11.                 └─spatstat.geom::as.polygonal
   12.                   └─base::getExportedValue(pkg, name)
   13.                     └─base::asNamespace(ns)
   14.                       └─base::getNamespace(ns)
   15.                         └─base::loadNamespace(name)
   16.                           └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   17.                             └─base:::withOneRestart(expr, restarts[[1L]])
   18.                               └─base:::doWithOneRestart(return(expr), restart)
  ── Error (test-siafs.R:25:5): Exponential implementation agrees with numerical approximation ──
  Error: there is no package called 'spatstat.geom'
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             └─polyCub::polyCub.SV(...)
    9.               ├─polyCub::xylist(polyregion)
   10.               └─polyCub:::xylist.owin(polyregion)
   11.                 └─spatstat.geom::as.polygonal
   12.                   └─base::getExportedValue(pkg, name)
   13.                     └─base::asNamespace(ns)
   14.                       └─base::getNamespace(ns)
   15.                         └─base::loadNamespace(name)
   16.                           └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   17.                             └─base:::withOneRestart(expr, restarts[[1L]])
   18.                               └─base:::doWithOneRestart(return(expr), restart)
  ── Error (test-siafs.R:25:5): Power-law implementation agrees with numerical approximation ──
  Error: there is no package called 'spatstat.geom'
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             └─polyCub::polyCub.SV(...)
    9.               ├─polyCub::xylist(polyregion)
   10.               └─polyCub:::xylist.owin(polyregion)
   11.                 └─spatstat.geom::as.polygonal
   12.                   └─base::getExportedValue(pkg, name)
   13.                     └─base::asNamespace(ns)
   14.                       └─base::getNamespace(ns)
   15.                         └─base::loadNamespace(name)
   16.                           └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   17.                             └─base:::withOneRestart(expr, restarts[[1L]])
   18.                               └─base:::doWithOneRestart(return(expr), restart)
  ── Error (test-siafs.R:25:5): 1-parameter power-law agrees with numerical approximations ──
  Error: there is no package called 'spatstat.geom'
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             └─polyCub::polyCub.SV(...)
    9.               ├─polyCub::xylist(polyregion)
   10.               └─polyCub:::xylist.owin(polyregion)
   11.                 └─spatstat.geom::as.polygonal
   12.                   └─base::getExportedValue(pkg, name)
   13.                     └─base::asNamespace(ns)
   14.                       └─base::getNamespace(ns)
   15.                         └─base::loadNamespace(name)
   16.                           └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   17.                             └─base:::withOneRestart(expr, restarts[[1L]])
   18.                               └─base:::doWithOneRestart(return(expr), restart)
  ── Error (test-siafs.R:25:5): Lagged power-law implementation agrees with numeric results ──
  Error: inapplicable choice of bandwidth (eps=NULL) in midpoint rule:
  Error in loadNamespace(name): there is no package called 'spatstat.geom'
  
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             ├─polyCub::polyCub(...)
    9.             │ └─base::eval(cl, parent.frame())
   10.             │   └─base::eval(cl, parent.frame())
   11.             └─polyCub::polyCub.midpoint(...)
   12.               └─base::tryCatch(...)
   13.                 └─base:::tryCatchList(expr, classes, parentenv, handlers)
   14.                   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.                     └─value[[3L]](cond)
  ── Error (test-siafs.R:25:5): Student implementation agrees with numerical approximation ──
  Error: there is no package called 'spatstat.geom'
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             └─polyCub::polyCub.SV(...)
    9.               ├─polyCub::xylist(polyregion)
   10.               └─polyCub:::xylist.owin(polyregion)
   11.                 └─spatstat.geom::as.polygonal
   12.                   └─base::getExportedValue(pkg, name)
   13.                     └─base::asNamespace(ns)
   14.                       └─base::getNamespace(ns)
   15.                         └─base::loadNamespace(name)
   16.                           └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   17.                             └─base:::withOneRestart(expr, restarts[[1L]])
   18.                               └─base:::doWithOneRestart(return(expr), restart)
  ── Error (test-siafs.R:25:5): Step kernel implementation agrees with numerical approximation ──
  Error: inapplicable choice of bandwidth (eps=NULL) in midpoint rule:
  Error in loadNamespace(name): there is no package called 'spatstat.geom'
  
  Backtrace:
       █
    1. └─surveillance:::myexpectation(...)
    2.   └─surveillance:::checksiaf(siaf, pargrid, type, ...) test-siafs.R:25:4
    3.     └─surveillance:::checksiaf.F(...)
    4.       ├─base::t(...)
    5.       └─base::apply(...)
    6.         └─surveillance:::FUN(newX[, i], ...)
    7.           └─surveillance:::siaf.fallback.F(...)
    8.             ├─polyCub::polyCub(...)
    9.             │ └─base::eval(cl, parent.frame())
   10.             │   └─base::eval(cl, parent.frame())
   11.             └─polyCub::polyCub.midpoint(...)
   12.               └─base::tryCatch(...)
   13.                 └─base:::tryCatchList(expr, classes, parentenv, handlers)
   14.                   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.                     └─value[[3L]](cond)
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 262 ]
  Error: Test failures
  Execution halted