aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-03-01 09:57:36 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-03-01 09:57:36 +0100
commitd2ddca3769be6746475e3949bf7604ad193a9d70 (patch)
tree9d5d3aad330bdaf2575d6afce639d4750f968e91 /R
parentbd2eb29483041fc0b70231322e85474a216a4645 (diff)
Make it possible to fix parameters in saem.mmkin
By actually passing dot arguments (that can include fixed.estim) to saemixModel, as advertised in the docs.
Diffstat (limited to 'R')
-rw-r--r--R/saem.R5
1 files changed, 3 insertions, 2 deletions
diff --git a/R/saem.R b/R/saem.R
index a8b9a67d..26ea1c8d 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -236,7 +236,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"),
- degparms_start = numeric(), test_log_parms = FALSE, verbose = FALSE, ...)
+ degparms_start = numeric(), test_log_parms = FALSE, conf.level = 0.6, verbose = FALSE, ...)
{
if (packageVersion("saemix") < "3.0") {
stop("To use the interface to saemix, you need to install a version >= 3.0\n")
@@ -517,7 +517,8 @@ saemix_model <- function(object, solution_type = "auto", transformations = c("mk
"Mixed model generated from mmkin object",
transform.par = transform.par,
error.model = error.model,
- verbose = verbose
+ verbose = verbose,
+ ...
)
attr(res, "mean_dp_start") <- degparms_optim
return(res)

Contact - Imprint