diff options
Diffstat (limited to 'R/summary.saem.mmkin.R')
| -rw-r--r-- | R/summary.saem.mmkin.R | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R index 536693a3..97f9f2da 100644 --- a/R/summary.saem.mmkin.R +++ b/R/summary.saem.mmkin.R @@ -151,14 +151,11 @@ summary.saem.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes = err_mod = object$mmkin_orig[[1]]$err_mod object$diffs <- object$mkinmod$diffs - object$print_data <- data + object$print_data <- data # boolean: Should we print the data? so_pred <- object$so@results@predictions - object$data[["observed"]] <- object$data[["value"]] - object$data[["value"]] <- NULL - object$data[["predicted"]] <- so_pred$ipred - object$data[["residual"]] <- so_pred$ires - object$data[["standardized"]] <- so_pred$iwres + names(object$data)[4] <- "observed" # rename value to observed + object$verbose <- verbose object$fixed <- object$mmkin_orig[[1]]$fixed |