aboutsummaryrefslogtreecommitdiff
path: root/R/mkinerrmin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2023-03-22 23:00:18 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2023-03-22 23:00:18 +0100
commit9e7aa351b30a0dc9b1e6e14da751c7f42a7587dd (patch)
treeb16293db1c6f268d67961018a28277fc2ab064f8 /R/mkinerrmin.R
parent81bb17f887f192a5ee4f77829a65689934776471 (diff)
parentb17dc3ee5f4fda17fcbc659730cb81e447510121 (diff)
Merge branch 'main' into covariate_parms_and_endpoints
Diffstat (limited to 'R/mkinerrmin.R')
-rw-r--r--R/mkinerrmin.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R
index 388060d4..b924f4ab 100644
--- a/R/mkinerrmin.R
+++ b/R/mkinerrmin.R
@@ -58,7 +58,7 @@ mkinerrmin <- function(fit, alpha = 0.05)
# Remove values at time zero for variables whose value for state.ini is fixed,
# as these will not have any effect in the optimization and should therefore not
# be counted as degrees of freedom.
- fixed_initials = gsub("_0$", "", rownames(subset(fit$fixed, type = "state")))
+ fixed_initials = gsub("_0$", "", rownames(subset(fit$fixed, type == "state")))
errdata <- subset(errdata, !(time == 0 & variable %in% fixed_initials))
n.optim.overall <- length(parms.optim) - length(fit$errparms)

Contact - Imprint