Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > 
  > library(testthat)
  > test_check("strip")
  Loading required package: strip
  
  Call:
  stats::lm(formula = mpg ~ ., data = mtcars)
  
  Coefficients:
  (Intercept)          cyl         disp           hp         drat           wt  
     12.30337     -0.11144      0.01334     -0.02148      0.78711     -3.71530  
         qsec           vs           am         gear         carb  
      0.82104      0.31776      2.52023      0.65541     -0.19942  
  
  
  Call:
  stats::lm(formula = mpg ~ ., data = mtcars)
  
  Coefficients:
  (Intercept)          cyl         disp           hp         drat           wt  
     12.30337     -0.11144      0.01334     -0.02148      0.78711     -3.71530  
         qsec           vs           am         gear         carb  
      0.82104      0.31776      2.52023      0.65541     -0.19942  
  
  
  Call:  stats::glm(formula = SF ~ sex * ldose, family = binomial)
  
  Coefficients:
  (Intercept)         sexM        ldose   sexM:ldose  
      -2.9935       0.1750       0.9060       0.3529  
  
  Degrees of Freedom: 11 Total (i.e. Null);  8 Residual
  Null Deviance:	    124.9 
  Residual Deviance: 4.994 	AIC: 43.1
  
  Call:  stats::glm(formula = SF ~ sex * ldose, family = binomial)
  
  Coefficients:
  (Intercept)         sexM        ldose   sexM:ldose  
      -2.9935       0.1750       0.9060       0.3529  
  
  Degrees of Freedom: 11 Total (i.e. Null);  8 Residual
  Null Deviance:	    124.9 
  Residual Deviance: 4.994 	AIC: 43.1
  Call:
  stats::loess(formula = dist ~ speed, data = cars)
  
  Number of Observations: 50 
  Equivalent Number of Parameters: 4.78 
  Residual Standard Error: 15.29 
  Call:
  stats::loess(formula = dist ~ speed, data = cars)
  
  Number of Observations: 50 
  Equivalent Number of Parameters: 4.78 
  Residual Standard Error: 15.29 
  
  Call:
   randomForest(formula = Species ~ ., data = iris) 
                 Type of random forest: classification
                       Number of trees: 500
  No. of variables tried at each split: 2
  
          OOB estimate of  error rate: 4.67%
  Confusion matrix:
             setosa versicolor virginica class.error
  setosa         50          0         0        0.00
  versicolor      0         47         3        0.06
  virginica       0          4        46        0.08
  
  Call:
   randomForest(formula = Species ~ ., data = iris) 
                 Type of random forest: classification
                       Number of trees: 500
  No. of variables tried at each split: 2
  
          OOB estimate of  error rate: 4.67%
  Confusion matrix:
             setosa versicolor virginica class.error
  setosa         50          0         0        0.00
  versicolor      0         47         3        0.06
  virginica       0          4        46        0.08
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 16 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-strip.R:110'): predict.train works correctly after stripping ───
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'caret'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-strip.R:110:2
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-strip.R:121'): print.train works correctly after stripping ─────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'caret'
  Backtrace:
      ▆
   1. └─base::loadNamespace(x) at test-strip.R:121:2
   2.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   3.     └─base (local) withOneRestart(expr, restarts[[1L]])
   4.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 16 ]
  Error: Test failures
  Execution halted