diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-10 10:17:35 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-04-10 10:17:35 +0200 |
| commit | 194659fcaccdd1ee37851725b8c72e99daa3a8cf (patch) | |
| tree | edbbebe8956000b9eb725ca425b91e051571ec02 /R/mkinerrmin.R | |
| parent | 5814be02f286ce96d6cff8d698aea6844e4025f1 (diff) | |
Adapt tests, vignettes and examples
- Write the NEWS
- Static documentation rebuilt by pkgdown
- Adapt mkinerrmin
- Fix (hopefully all) remaining problems in mkinfit
Diffstat (limited to 'R/mkinerrmin.R')
| -rw-r--r-- | R/mkinerrmin.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R index b361c466..c0c6fad7 100644 --- a/R/mkinerrmin.R +++ b/R/mkinerrmin.R @@ -42,7 +42,7 @@ mkinerrmin <- function(fit, alpha = 0.05) fixed_initials = gsub("_0$", "", rownames(subset(fit$fixed, type = "state"))) errdata <- subset(errdata, !(time == 0 & name %in% fixed_initials)) - n.optim.overall <- length(parms.optim) + n.optim.overall <- length(parms.optim) - length(fit$errparms) errmin.overall <- kinerrmin(errdata, n.optim.overall) errmin <- data.frame(err.min = errmin.overall$err.min, |