aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-05-18 12:11:13 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-05-18 12:11:13 +0200
commitf345762ddcdac65b0d565c7a622d32c1f849e7c7 (patch)
treef31a18bb042bb73d0fb7a8fe9a38b08621f8a4a5
parentda33f5c04ab9d98cad0b3ef5ab9f173f612f14ef (diff)
Add comment
-rw-r--r--R/mkinpredict.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinpredict.R b/R/mkinpredict.R
index 938d3488..350ee56a 100644
--- a/R/mkinpredict.R
+++ b/R/mkinpredict.R
@@ -138,7 +138,8 @@ mkinpredict.mkinmod <- function(x,
out_obs[, "time"] <- outtimes
if (solution_type == "analytical") {
- # This is clumsy, as we wanted fast analytical predictions for mkinfit
+ # This is clumsy, as we wanted fast analytical predictions for mkinfit,
+ # which bypasses mkinpredict in the case of analytical solutions
pseudo_observed <-
data.frame(name = rep(obs_vars, each = length(outtimes)),
time = rep(outtimes, length(obs_vars)))

Contact - Imprint