diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-10-24 00:04:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-10-24 00:04:50 +0200 |
| commit | ba806b0255821d5e508d82c7bf7dc68cc3c8328c (patch) | |
| tree | b576f68745f6f8e053c74f6cc61080f47de18ff9 /R/mkinfit.R | |
| parent | 0af6a61b84cc29cdbfad16a6fc7ee0e6f88c7d0f (diff) | |
Printing method for mmkin objects
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index ee7c0b99..65dd5d75 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -292,7 +292,7 @@ mkinfit <- function(mkinmod, observed, # Also remove zero values to avoid instabilities (e.g. of the 'tc' error model) if (any(observed$value == 0)) { zero_warning <- "Observations with value of zero were removed from the data" - summary_warnings <- c(summary_warnings, zero_warning) + summary_warnings <- c(summary_warnings, Z = zero_warning) warning(zero_warning) observed <- subset(observed, value != 0) } @@ -860,7 +860,7 @@ mkinfit <- function(mkinmod, observed, if (fit$convergence != 0) { convergence_warning = paste0("Optimisation did not converge:\n", fit$message) - summary_warnings <- c(summary_warnings, convergence_warning) + summary_warnings <- c(summary_warnings, C = convergence_warning) warning(convergence_warning) } else { if(!quiet) message("Optimisation successfully terminated.\n") @@ -938,7 +938,7 @@ mkinfit <- function(mkinmod, observed, if (fit$shapiro.p < 0.05) { shapiro_warning <- paste("Shapiro-Wilk test for standardized residuals: p = ", signif(fit$shapiro.p, 3)) warning(shapiro_warning) - summary_warnings <- c(summary_warnings, shapiro_warning) + summary_warnings <- c(summary_warnings, S = shapiro_warning) } fit$summary_warnings <- summary_warnings |