aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--R/saem.R13
-rw-r--r--man/saem.Rd4
2 files changed, 1 insertions, 16 deletions
diff --git a/R/saem.R b/R/saem.R
index ffdd5503..fd2a77b4 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -28,8 +28,6 @@ utils::globalVariables(c("predicted", "std"))
#' automatic choice is not desired
#' @param quiet Should we suppress the messages saemix prints at the beginning
#' and the end of the optimisation process?
-#' @param suppressPlot Should we suppress any plotting that is done
-#' by the saemix function?
#' @param control Passed to [saemix::saemix]
#' @param \dots Further parameters passed to [saemix::saemixModel].
#' @return An S3 object of class 'saem.mmkin', containing the fitted
@@ -109,7 +107,7 @@ saem.mmkin <- function(object,
solution_type = "auto",
control = list(displayProgress = FALSE, print = FALSE,
save = FALSE, save.graphs = FALSE),
- verbose = FALSE, suppressPlot = TRUE, quiet = FALSE, ...)
+ verbose = FALSE, quiet = FALSE, ...)
{
transformations <- match.arg(transformations)
m_saemix <- saemix_model(object, verbose = verbose,
@@ -117,15 +115,6 @@ saem.mmkin <- function(object,
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
- # that we discard afterwards
- tmp <- tempfile()
- grDevices::png(tmp)
- on.exit(grDevices::dev.off())
- on.exit(unlink(tmp), add = TRUE)
- }
fit_time <- system.time({
utils::capture.output(f_saemix <- saemix::saemix(m_saemix, d_saemix, control), split = !quiet)
})
diff --git a/man/saem.Rd b/man/saem.Rd
index 775a8e7b..d5a8f17e 100644
--- a/man/saem.Rd
+++ b/man/saem.Rd
@@ -18,7 +18,6 @@ saem(object, ...)
control = list(displayProgress = FALSE, print = FALSE, save = FALSE, save.graphs =
FALSE),
verbose = FALSE,
- suppressPlot = TRUE,
quiet = FALSE,
...
)
@@ -59,9 +58,6 @@ automatic choice is not desired}
\item{verbose}{Should we print information about created objects of
type \link[saemix:SaemixModel-class]{saemix::SaemixModel} and \link[saemix:SaemixData-class]{saemix::SaemixData}?}
-\item{suppressPlot}{Should we suppress any plotting that is done
-by the saemix function?}
-
\item{quiet}{Should we suppress the messages saemix prints at the beginning
and the end of the optimisation process?}

Contact - Imprint