initialize combined risk

boost-R · Feb 28, 2017 · 86ebeb2 · 86ebeb2
1 parent 0196662
commit 86ebeb2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/mboostLSS.R b/R/mboostLSS.R
@@ -174,6 +174,8 @@ mboostLSS_fit <- function(formula, data = list(), families = GaussianLSS(),
     iBoost <- function(niter, method) {
 
         start <- sapply(fit, mstop)
+        # initialize combined_risk
+        combined_risk <- NA
 
         if (method == "noncyclic") {
             ### noncyclical fitting ###