From f606838c5310f365eea1c0d6421f5c3636a4dc79 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 8 Dec 2020 22:08:38 +0100
Subject: mixed.mmkin and test coverage

---
 R/saem.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'R/saem.R')

diff --git a/R/saem.R b/R/saem.R
index e5634ac7..88b8e172 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -92,7 +92,7 @@ utils::globalVariables(c("predicted", "std"))
 #' plot(f_saem_fomc)
 #' }
 #' @export
-saem <- function(object, control, ...) UseMethod("saem")
+saem <- function(object, ...) UseMethod("saem")
 
 #' @rdname saem
 #' @export
@@ -104,9 +104,11 @@ saem.mmkin <- function(object,
   cores = 1,
   verbose = FALSE, suppressPlot = TRUE, quiet = FALSE, ...)
 {
+  transformations <- match.arg(transformations)
   m_saemix <- saemix_model(object, cores = cores, verbose = verbose,
     solution_type = solution_type, transformations = transformations, ...)
   d_saemix <- saemix_data(object, verbose = verbose)
+
   if (suppressPlot) {
     # We suppress the log-likelihood curve that saemix currently
     # produces at the end of the fit by plotting to a file
-- 
cgit v1.2.1