aboutsummaryrefslogtreecommitdiff
path: root/R/illparms.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-11-04 10:54:43 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-11-04 10:54:43 +0100
commitce7a20e54d8005264f13d3e9fe0c99f84d20b85e (patch)
tree50e3ca40c5c13bb93495e4e1f2080e2e7db52439 /R/illparms.R
parent0389d523f049945c85eba42d4a006523595043f0 (diff)
Make illparms.mhmkin and anova.saem.mmkin more robust
Diffstat (limited to 'R/illparms.R')
-rw-r--r--R/illparms.R18
1 files changed, 9 insertions, 9 deletions
diff --git a/R/illparms.R b/R/illparms.R
index c9a4f854..01e75cf1 100644
--- a/R/illparms.R
+++ b/R/illparms.R
@@ -93,22 +93,22 @@ print.illparms.mmkin <- function(x, ...) {
#' @rdname illparms
#' @export
illparms.saem.mmkin <- function(object, conf.level = 0.95, random = TRUE, errmod = TRUE, ...) {
- if (inherits(object, "try-error")) {
- failed <- NA
+ if (inherits(object$so, "try-error")) {
+ ill_parms <- NA
} else {
ints <- intervals(object, conf.level = conf.level)
- failed <- character(0)
+ ill_parms <- character(0)
if (random) {
- failed_random <- ints$random[, "lower"] < 0
- failed <- c(failed, names(which(failed_random)))
+ ill_parms_random <- ints$random[, "lower"] < 0
+ ill_parms <- c(ill_parms, names(which(ill_parms_random)))
}
if (errmod) {
- failed_errmod <- ints$errmod[, "lower"] < 0 & ints$errmod[, "est."] > 0
- failed <- c(failed, names(which(failed_errmod)))
+ ill_parms_errmod <- ints$errmod[, "lower"] < 0 & ints$errmod[, "est."] > 0
+ ill_parms <- c(ill_parms, names(which(ill_parms_errmod)))
}
}
- class(failed) <- "illparms.saem.mmkin"
- return(failed)
+ class(ill_parms) <- "illparms.saem.mmkin"
+ return(ill_parms)
}
#' @rdname illparms

Contact - Imprint