diff options
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) { |