diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-09 11:59:16 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-09 11:59:16 +0100 |
| commit | a52d76a13f36c112e27383af1cac3f98b1bbed0a (patch) | |
| tree | 18f61d83823fad7ae67d1ada1975d4e1d7781dfc /R/summary.nlme.mmkin.R | |
| parent | 8ba0bc6f52183ad97377e4d13d082be13b0383bd (diff) | |
object$mmkin_orig -> object$mmkin
Diffstat (limited to 'R/summary.nlme.mmkin.R')
| -rw-r--r-- | R/summary.nlme.mmkin.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/summary.nlme.mmkin.R b/R/summary.nlme.mmkin.R index d930f845..ad730f9a 100644 --- a/R/summary.nlme.mmkin.R +++ b/R/summary.nlme.mmkin.R @@ -122,8 +122,8 @@ summary.nlme.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes = object$date.summary = date() object$use_of_ff = object$mkinmod$use_of_ff - object$error_model_algorithm = object$mmkin_orig[[1]]$error_model_algorithm - err_mod = object$mmkin_orig[[1]]$err_mod + object$error_model_algorithm = object$mmkin[[1]]$error_model_algorithm + err_mod = object$mmkin[[1]]$err_mod object$diffs <- object$mkinmod$diffs object$print_data <- data @@ -139,7 +139,7 @@ summary.nlme.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes = object$data[["standardized"]] <- residuals(object, type = "pearson") object$verbose <- verbose - object$fixed <- object$mmkin_orig[[1]]$fixed + object$fixed <- object$mmkin[[1]]$fixed object$AIC = AIC(object) object$BIC = BIC(object) object$logLik = logLik(object) |