From 85498007e97b0b7f7d545047b83f16c2023affce Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nicholas.j.clark1214@gmail.com>
Date: Fri, 28 Jul 2023 10:13:53 +1000
Subject: [PATCH] no need to include NAs in get_data

---
 R/marginaleffects.mvgam.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/marginaleffects.mvgam.R b/R/marginaleffects.mvgam.R
index cedf8b37..efe1c3ba 100644
--- 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) {