From b17dc3ee5f4fda17fcbc659730cb81e447510121 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 22 Mar 2023 22:34:30 +0100 Subject: Fix typo in mkinerrmin Thanks to Sebastian Meyer for spotting it. --- R/mkinerrmin.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R') 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) -- cgit v1.2.1