no need to include NAs in get_data

nicholasjclark · Jul 28, 2023 · 8549800 · 8549800
1 parent 17a3aa2
commit 8549800
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/marginaleffects.mvgam.R b/R/marginaleffects.mvgam.R
@@ -152,11 +152,11 @@ get_data.mvgam = function (x, source = "environment", verbose = TRUE, ...) {
 
       # Now get the observed response, in case there are any
       # NAs there that need to be updated
-      mf_data[,resp] <- x$obs_data$y
+      #mf_data[,resp] <- x$obs_data$y
 
     } else {
       mf_data <- model.frame(x, trend_effects = FALSE)
-      mf_data[,resp] <- x$obs_data[[resp]]
+     #mf_data[,resp] <- x$obs_data[[resp]]
     }
     mf_data
   }, error = function(x) {