minor bug fix for forecasting bernoulli expectations

nicholasjclark · Jul 18, 2024 · c7bbff1 · c7bbff1
1 parent 5b7dd57
commit c7bbff1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/families.R b/R/families.R
@@ -540,9 +540,8 @@ mvgam_predict = function(Xp,
                                 betas) + attr(Xp, 'model.offset')))
       out <- mu * (1 - mu)
     } else {
-      out <- plogis(((matrix(Xp, ncol = NCOL(Xp)) %*%
-                        betas)) +
-                      attr(Xp, 'model.offset'))
+      out <- plogis(as.vector((matrix(Xp, ncol = NCOL(Xp)) %*%
+                                 betas) + attr(Xp, 'model.offset')))
     }
   }
 

diff --git a/src/mvgam.dll b/src/mvgam.dll