aboutsummaryrefslogtreecommitdiff
path: root/R/saem.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-10-26 14:13:09 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2022-10-26 14:13:09 +0200
commit0e9220c6b9132602a3d69e4be582a02da8b07822 (patch)
tree327aed436a0bfc4df33e42f55fb2d56b04785a85 /R/saem.R
parentc615bd685d6a109306e68ea7b0516ba3d6805114 (diff)
Really test anova output, test covariates
Diffstat (limited to 'R/saem.R')
-rw-r--r--R/saem.R5
1 files changed, 5 insertions, 0 deletions
diff --git a/R/saem.R b/R/saem.R
index 79b4b9ee..cf67b8e1 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -738,6 +738,11 @@ update.saem.mmkin <- function(object, ..., evaluate = TRUE) {
# so we need to fix this so we do not have to export saem.mmkin in
# addition to the S3 method
call[[1]] <- saem
+
+ # We also need to provide the mmkin object in the call, so it
+ # will also be found when called by testthat or pkgdown
+ call[[2]] <- object$mmkin
+
update_arguments <- match.call(expand.dots = FALSE)$...
if (length(update_arguments) > 0) {

Contact - Imprint