aboutsummaryrefslogtreecommitdiff
path: root/R/mkinerrmin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinerrmin.R')
-rw-r--r--R/mkinerrmin.R1
1 files changed, 1 insertions, 0 deletions
diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R
index eb9d49c1..2b499d97 100644
--- a/R/mkinerrmin.R
+++ b/R/mkinerrmin.R
@@ -39,6 +39,7 @@ mkinerrmin <- function(fit, alpha = 0.05)
errdata <- merge(means, fit$predicted, by = c("time", "name"),
suffixes = c("_mean", "_pred"))
errdata <- errdata[order(errdata$time, errdata$name), ]
+ errdata <- subset(errdata, !(time == 0 & value_mean == 0))
n.optim.overall <- length(parms.optim)
errmin.overall <- kinerrmin(errdata, n.optim.overall)

Contact - Imprint