diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-13 10:27:00 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-13 10:27:00 +0100 |
| commit | 8d21c9966305627f9ea8599503fb3709ca916f9b (patch) | |
| tree | f17b0a995759860d153385c7d8f38fc1e7ac656c /R/summary.saem.mmkin.R | |
| parent | f6fc5a050442c60d74a1943fa1181b8338322f30 (diff) | |
Fixed plotting of non-analytical solutions in saem
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 |