diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-12-07 16:19:54 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-12-07 16:19:54 +0100 |
| commit | 904ba9668eb76eaae4960e2188134e8c88da07ee (patch) | |
| tree | 31498997575ebcc7544d81a71f991bf127be3a41 /R | |
| parent | 97f71fc3d086bd447ab3e4d19abf32bb3114085b (diff) | |
Fix parplot for the case of failed multistart runs
Diffstat (limited to 'R')
| -rw-r--r-- | R/parms.R | 2 | ||||
| -rw-r--r-- | R/parplot.R | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -77,6 +77,6 @@ parms.multistart <- function(object, exclude_failed = TRUE, ...) { successful <- which(!is.na(res[, 1])) first_success <- successful[1] colnames(res) <- names(parms(object[[first_success]])) - if (exclude_failed) res <- res[successful, ] + if (exclude_failed[1]) res <- res[successful, ] return(res) } diff --git a/R/parplot.R b/R/parplot.R index 63306ac2..e9c18947 100644 --- a/R/parplot.R +++ b/R/parplot.R @@ -41,7 +41,7 @@ parplot.multistart.saem.mmkin <- function(object, llmin = -Inf, llquant = NA, orig <- attr(object, "orig") orig_parms <- parms(orig) start_degparms <- orig$mean_dp_start - all_parms <- parms(object) + all_parms <- parms(object, exclude_failed = FALSE) if (inherits(object, "multistart.saem.mmkin")) { llfunc <- function(object) { |