diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 09:57:36 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 09:57:36 +0100 |
| commit | d2ddca3769be6746475e3949bf7604ad193a9d70 (patch) | |
| tree | 9d5d3aad330bdaf2575d6afce639d4750f968e91 /R/saem.R | |
| parent | bd2eb29483041fc0b70231322e85474a216a4645 (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/saem.R')
| -rw-r--r-- | R/saem.R | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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) |