diff options
| -rw-r--r-- | R/illparms.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/illparms.R b/R/illparms.R index b2d510dc..4f5f8b00 100644 --- a/R/illparms.R +++ b/R/illparms.R @@ -97,7 +97,7 @@ illparms.saem.mmkin <- function(object, conf.level = 0.95, random = TRUE, errmod failed <- NA } else { ints <- intervals(object, conf.level = conf.level) - failed <- NULL + failed <- character(0) if (random) { failed_random <- ints$random[, "lower"] < 0 failed <- c(failed, names(which(failed_random))) |