Bug fixed in X_olsc that corrupted centering in brandomc.

boost-R · May 1, 2024 · 6c172c5 · 6c172c5
1 parent 7272361
commit 6c172c5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/baselearners.R b/R/baselearners.R
@@ -2368,9 +2368,11 @@ X_olsc <- function(mf, vary, args) {
       args$contrasts.arg <- NULL
     }
     X <- model.matrix(as.formula(fm), data = mf, contrasts.arg = args$contrasts.arg)
-    if (DUMMY)
+    if (DUMMY) {
       attr(X, "contrasts") <- lapply(attr(X, "contrasts"),
                                      function(x) x <- "contr.dummy")
+      args$contrasts.arg <- "contr.dummy"
+    }
     contr <- attr(X, "contrasts")
     if (!args$intercept)
       X <- X[ , -1, drop = FALSE]