1 files changed, 2 insertions, 0 deletions
diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R
index c8a99d59..d4720e79 100644
--- a/R/nlme.mmkin.R
+++ b/R/nlme.mmkin.R
@@ -196,6 +196,8 @@ nlme.mmkin <- function(model, data = sys.frame(sys.parent()),
 
   val <- do.call("nlme.formula", thisCall)
   val$mmkin_orig <- model
+  val$data <- thisCall[["data"]]
+  val$mkinmod <- model[[1]]$mkinmod
   class(val) <- c("nlme.mmkin", "nlme", "lme")
   return(val)
 }