From 1a14621ec15a1d0142b55511a05919add3d28ceb Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 15 Dec 2020 14:10:20 +0100 Subject: Remove leftovers --- R/saem.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'R') diff --git a/R/saem.R b/R/saem.R index a21f9990..4862f70e 100644 --- a/R/saem.R +++ b/R/saem.R @@ -106,11 +106,10 @@ saem.mmkin <- function(object, solution_type = "auto", control = list(displayProgress = FALSE, print = FALSE, save = FALSE, save.graphs = FALSE), - cores = 1, verbose = FALSE, suppressPlot = TRUE, quiet = FALSE, ...) { transformations <- match.arg(transformations) - m_saemix <- saemix_model(object, cores = cores, verbose = verbose, + m_saemix <- saemix_model(object, verbose = verbose, solution_type = solution_type, transformations = transformations, ...) d_saemix <- saemix_data(object, verbose = verbose) @@ -211,7 +210,7 @@ print.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3), ...) { #' @return An [saemix::SaemixModel] object. #' @export saemix_model <- function(object, solution_type = "auto", transformations = c("mkin", "saemix"), - cores = 1, verbose = FALSE, ...) + verbose = FALSE, ...) { if (nrow(object) > 1) stop("Only row objects allowed") -- cgit v1.2.1