fix boost-R#114

bastistician · Aug 12, 2021 · 7eef3c6 · 7eef3c6
1 parent 021e406
commit 7eef3c6
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/R/mboost.R b/R/mboost.R
@@ -426,10 +426,6 @@ mboost_fit <- function(blg, response, weights = rep(1, NROW(response)),
                 cf[, which(ix)] <- cftmp
             }
             if (!is.matrix(cf)) cf <- matrix(cf, nrow = 1)
-            ## check if base-learner has coefficients
-            if(any(sapply(cf, is.null))){
-                ret <- NULL
-            } else {
                 ret <- switch(aggregate,
                               "sum" = rowSums(cf) * nu,
                               "cumsum" = {
@@ -438,7 +434,6 @@ mboost_fit <- function(blg, response, weights = rep(1, NROW(response)),
                               },
                               "none" = nu * cf
                               )
-            }
             ### set names, but not for bolscw base-learner
             if (!cwlin) {
                 nm <- bl[[w]]$Xnames