Running examples in ‘IRon-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: sera
> ### Title: Squared Error-Relevance Area (SERA)
> ### Aliases: sera
> 
> ### ** Examples
> 
> library(IRon)
> library(rpart)
> 
> if(requireNamespace("rpart")) {
+ 
+    #' data(accel)
+ 
+    form <- acceleration ~ .
+ 
+    ind <- sample(1:nrow(accel),0.75*nrow(accel))
+ 
+    train <- accel[ind,]
+    test <- accel[-ind,]
+ 
+    ph <- phi.control(accel$acceleration)
+ 
+    m <- rpart::rpart(form, train)
+    preds <- as.vector(predict(m,test))
+ 
+    trues <- test$acceleration
+    phi.trues <- phi(test$acceleration,ph)
+ 
+    sera(trues,preds,phi.trues)
+    sera(trues,preds,phi.trues,pl=TRUE, m.name="Regression Trees")
+    sera(trues,preds,phi.trues,pl=TRUE, return.err=TRUE)
+ 
+ }
Error in `ggplot2::geom_smooth()`:
! Problem while computing stat.
ℹ Error occurred in the 1st layer.
Caused by error in `get()`:
! object 'scam' of mode 'function' was not found
Backtrace:
     ▆
  1. ├─IRon::sera(trues, preds, phi.trues, pl = TRUE, m.name = "Regression Trees")
  2. │ ├─base::print(...)
  3. │ └─ggplot2 (local) `print.ggplot2::ggplot`(...)
  4. │   ├─ggplot2::ggplot_build(x)
  5. │   └─ggplot2 (local) `ggplot_build.ggplot2::ggplot`(x)
  6. │     └─ggplot2:::by_layer(...)
  7. │       ├─rlang::try_fetch(...)
  8. │       │ ├─base::tryCatch(...)
  9. │       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 10. │       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 11. │       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 12. │       │ └─base::withCallingHandlers(...)
 13. │       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 14. │         └─l$compute_statistic(d, layout)
 15. │           └─ggplot2 (local) compute_statistic(..., self = self)
 16. │             └─self$stat$setup_params(data, self$stat_params)
 17. │               └─ggplot2 (local) setup_params(...)
 18. │                 └─base::match.fun(method)
 19. │                   └─base::get(as.character(FUN), mode = "function", envir = envir)
 20. └─base::.handleSimpleError(...)
 21.   └─rlang (local) h(simpleError(msg, call))
 22.     └─handlers[[1L]](cnd)
 23.       └─cli::cli_abort(...)
 24.         └─rlang::abort(...)
Execution halted