diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2023-08-04 13:27:41 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2023-08-04 13:27:41 +0200 |
| commit | 804a5cb47fcdc823d41c585729ace151b283ca65 (patch) | |
| tree | 3dac33d049e53343cf36216b8cc6c93cbc32d754 /R | |
| parent | cf54ccca37d27480dbf8d59eb027300518f7ad75 (diff) | |
Mesotrione data and vignette
The vignette illustrates pH dependent degradation (covariate modelling)
with some detail for the parent compound.
Also, a bug in the saem method of the illparms function was fixed, which
prevented to find ill-defined parameters in cases where e.g. slopes of
covariate models have a negative estimate.
Diffstat (limited to 'R')
| -rw-r--r-- | R/illparms.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/illparms.R b/R/illparms.R index eef4bd33..68a6bff6 100644 --- a/R/illparms.R +++ b/R/illparms.R @@ -106,7 +106,7 @@ illparms.saem.mmkin <- function(object, conf.level = 0.95, random = TRUE, errmod ill_parms <- c(ill_parms, names(which(ill_parms_random))) } if (errmod) { - ill_parms_errmod <- ints$errmod[, "lower"] < 0 & ints$errmod[, "est."] > 0 + ill_parms_errmod <- ints$errmod[, "lower"] < 0 & ints$errmod[, "upper"] > 0 ill_parms <- c(ill_parms, names(which(ill_parms_errmod))) } if (slopes) { @@ -115,7 +115,7 @@ illparms.saem.mmkin <- function(object, conf.level = 0.95, random = TRUE, errmod ci <- object$so@results@conf.int rownames(ci) <- ci$name slope_ci <- ci[slope_names, ] - ill_parms_slopes <- slope_ci[, "lower"] < 0 & slope_ci[, "estimate"] > 0 + ill_parms_slopes <- slope_ci[, "lower"] < 0 & slope_ci[, "upper"] > 0 ill_parms <- c(ill_parms, slope_names[ill_parms_slopes]) } } |