From cba325aa66d36e210499b42a9761e3e90fc3d5fe Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 31 Aug 2022 17:15:59 +0200 Subject: Some more work on multistart --- R/multistart.R | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'R/multistart.R') diff --git a/R/multistart.R b/R/multistart.R index 819fcc1b..fb31d002 100644 --- a/R/multistart.R +++ b/R/multistart.R @@ -37,8 +37,23 @@ multistart.saem.mmkin <- function(object, n = 50, cores = 1, ...) { ) res <- parallel::mclapply(1:n, function(x) { - update(object, degparms_start = start_parms[x], ...) + update(object, degparms_start = start_parms[x, ], ...) }, mc.cores = cores) class(res) <- c("multistart.saem.mmkin", "multistart") return(res) } + +#' @rdname multistart +#' @export +print.multistart <- function(x, ...) { + cat("Multistart object with", length(x), "fits of the following type:\n\n") + print(x[[1]]) +} + +#' @rdname multistart +#' @export +summary.multistart.saem.mmkin <- function(object) { + + parm_matrix <- sapply(object, parms) + parm_matrix +} -- cgit v1.2.1