From f345762ddcdac65b0d565c7a622d32c1f849e7c7 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 18 May 2020 12:11:13 +0200
Subject: Add comment

---
 R/mkinpredict.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
cgit v1.2.1