speed-up

boost-R · Apr 8, 2022 · f2917e8 · f2917e8
1 parent cd63c28
commit f2917e8
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 3 deletions.
diff --git a/inst/NEWS.Rd b/inst/NEWS.Rd
@@ -5,6 +5,7 @@
   \subsection{Bug-fixes}{
     \itemize{
       \item Fix BLAS problem.
+      \item More \dontrun's in manual packages
     }
   }
 }

diff --git a/man/Family.Rd b/man/Family.Rd
@@ -412,7 +412,7 @@ y <- M / (M + U)
 ## fit RCG model
 data <- data.frame(y, x1, x2)
 RCGmodel <- glmboost(y ~ x1 + x2, data = data, family = RCG(),
-                     control = boost_control(mstop = 2000,
+                     control = boost_control(mstop = 1000,
                      trace = TRUE, nu = 0.01))
 ## true coefficients: gamma = (0.0, 0.4, -0.7),
 ##                    alpha (= shape) = 2,

diff --git a/man/baselearners.Rd b/man/baselearners.Rd
@@ -626,7 +626,9 @@ bl1 \%O\% bl2
 
   mod2 <- gamboost(form2)
   ## automated plot function:
+  \dontrun{
   plot(mod2)
+  }
   ## plot sum of linear and smooth effects:
   library("lattice")
   df <- expand.grid(x1 = unique(x1), x2 = unique(x2))

diff --git a/man/mboost_package.Rd b/man/mboost_package.Rd
@@ -292,8 +292,12 @@ License: \tab GPL-2\cr
       bbs(kneebreadth),           ### a smooth function of kneebreadth
       data = bodyfat, control = boost_control(mstop = 100))
 
-  ### bootstrap for assessing `optimal' number of boosting iterations
-  cvm <- cvrisk(model, papply = lapply)
+  ### 10-fold cv for assessing `optimal' number of boosting iterations
+  cvm <- cvrisk(model, papply = lapply, 
+                folds = cv(model.weights(model), type = "kfold"))
+  ### probably needs larger initial mstop but the
+  ### CRAN team is picky about running times for examples
+  plot(cvm)
 
   ### restrict model to mstop(cvm)
   model[mstop(cvm), return = FALSE]