aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-12-15 14:10:20 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-12-15 14:10:20 +0100
commit1a14621ec15a1d0142b55511a05919add3d28ceb (patch)
tree67e8bf5e4480f3b3782a1156892e8062748393bf /R
parent70e66bc2abfb582ef8e4372a6c7f23f732cb6ed0 (diff)
Remove leftovers
Diffstat (limited to 'R')
-rw-r--r--R/saem.R5
1 files changed, 2 insertions, 3 deletions
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")

Contact - Imprint