diff options
Diffstat (limited to 'R/nlme.mmkin.R')
| -rw-r--r-- | R/nlme.mmkin.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R index af92e8a1..ca849b85 100644 --- a/R/nlme.mmkin.R +++ b/R/nlme.mmkin.R @@ -183,7 +183,7 @@ nlme.mmkin <- function(model, data = sys.frame(sys.parent()), val$mkinmod <- model[[1]]$mkinmod val$data <- thisCall[["data"]] - val$mmkin_orig <- model + val$mmkin <- model val$mean_dp_start <- mean_dp_start val$transform_rates <- model[[1]]$transform_rates val$transform_fractions <- model[[1]]$transform_fractions @@ -211,7 +211,7 @@ print.nlme.mmkin <- function(x, ...) { cat( "Kinetic nonlinear mixed-effects model fit by " ) cat( if(x$method == "REML") "REML\n" else "maximum likelihood\n") cat("\nStructural model:\n") - diffs <- x$mmkin_orig[[1]]$mkinmod$diffs + diffs <- x$mmkin[[1]]$mkinmod$diffs nice_diffs <- gsub("^(d.*) =", "\\1/dt =", diffs) writeLines(strwrap(nice_diffs, exdent = 11)) cat("\nData:\n") @@ -239,7 +239,7 @@ print.nlme.mmkin <- function(x, ...) { #' @param ... Update specifications passed to update.nlme update.nlme.mmkin <- function(object, ...) { res <- NextMethod() - res$mmkin_orig <- object$mmkin_orig + res$mmkin <- object$mmkin class(res) <- c("nlme.mmkin", "nlme", "lme") return(res) } |