From dd80ab5d64bc6b56587b0542dc95e965a3a25590 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sat, 24 Oct 2020 00:32:00 +0200
Subject: Plot method for nlme.mmkin objects

Update docs
---
 R/nlme.mmkin.R | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'R/nlme.mmkin.R')

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)
 }
-- 
cgit v1.2.1