update method for mhmkin objects, clarify comment

1 files changed, 2 insertions, 2 deletions

diff --git a/R/saem.R b/R/saem.R
index 99712c92..5256f6b5 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -635,8 +635,8 @@ logLik.saem.mmkin <- function(object, ...) return(logLik(object$so))
 update.saem.mmkin <- function(object, ..., evaluate = TRUE) {
   call <- object$call
   # For some reason we get saem.mmkin in the call when using mhmkin
-  # so we need to fix this in order to avoid exporting saem.mmkin
-  # in addition to the S3 method
+  # so we need to fix this so we do not have to export saem.mmkin in
+  # addition to the S3 method
   call[[1]] <- saem
   update_arguments <- match.call(expand.dots = FALSE)$...