diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/mhmkin.R | 9 | ||||
| -rw-r--r-- | R/mmkin.R | 2 | ||||
| -rw-r--r-- | R/multistart.R | 12 | ||||
| -rw-r--r-- | R/status.R (renamed from R/convergence.R) | 21 | ||||
| -rw-r--r-- | R/summary.mmkin.R | 8 |
5 files changed, 25 insertions, 27 deletions
@@ -133,11 +133,10 @@ mhmkin.list <- function(objects, backend = "saemix", print.mhmkin <- function(x, ...) { cat("<mhmkin> object\n") cat("Status of individual fits:\n\n") - print(convergence(x)) + print(status(x)) } -#' @export -convergence.mhmkin <- function(object, ...) { +status.mhmkin <- function(object, ...) { if (inherits(object[[1]], "saem.mmkin")) { test_func <- function(fit) { if (inherits(fit$so, "try-error")) { @@ -160,12 +159,12 @@ convergence.mhmkin <- function(object, ...) { dim(result) <- dim(object) dimnames(result) <- dimnames(object) - class(result) <- "convergence.mhmkin" + class(result) <- "status.mhmkin" return(result) } #' @export -print.convergence.mhmkin <- function(x, ...) { +print.status.mhmkin <- function(x, ...) { class(x) <- NULL print(x, quote = FALSE) cat("\n") @@ -171,7 +171,7 @@ mmkin <- function(models = c("SFO", "FOMC", "DFOP"), datasets, print.mmkin <- function(x, ...) { cat("<mmkin> object\n") cat("Status of individual fits:\n\n") - print(convergence(x)) + print(status(x)) } #' @export diff --git a/R/multistart.R b/R/multistart.R index fc2dcd7d..29ccdc44 100644 --- a/R/multistart.R +++ b/R/multistart.R @@ -112,7 +112,7 @@ multistart.saem.mmkin <- function(object, n = 50, cores = 1, } #' @export -convergence.multistart <- function(object, ...) { +status.multistart <- function(object, ...) { all_summary_warnings <- character() result <- lapply(object, @@ -124,12 +124,12 @@ convergence.multistart <- function(object, ...) { }) result <- unlist(result) - class(result) <- "convergence.multistart" + class(result) <- "status.multistart" return(result) } #' @export -convergence.multistart.saem.mmkin <- function(object, ...) { +status.multistart.saem.mmkin <- function(object, ...) { all_summary_warnings <- character() result <- lapply(object, @@ -141,12 +141,12 @@ convergence.multistart.saem.mmkin <- function(object, ...) { }) result <- unlist(result) - class(result) <- "convergence.multistart" + class(result) <- "status.multistart" return(result) } #' @export -print.convergence.multistart <- function(x, ...) { +print.status.multistart <- function(x, ...) { class(x) <- NULL print(table(x, dnn = NULL)) if (any(x == "OK")) cat("OK: Fit terminated successfully\n") @@ -157,7 +157,7 @@ print.convergence.multistart <- function(x, ...) { #' @export print.multistart <- function(x, ...) { cat("<multistart> object with", length(x), "fits:\n") - print(convergence(x)) + print(status(x)) } #' @rdname multistart diff --git a/R/convergence.R b/R/status.R index e75bb1b1..44d2a9bc 100644 --- a/R/convergence.R +++ b/R/status.R @@ -1,18 +1,17 @@ -#' Method to get convergence information +#' Method to get status information for fit array objects #' #' @param object The object to investigate #' @param x The object to be printed #' @param \dots For potential future extensions -#' @return For [mkinfit] objects, a character vector containing -#' For [mmkin] objects, an object of class 'convergence.mmkin' with a +#' @return An object with the same dimensions as the fit array #' suitable printing method. #' @export -convergence <- function(object, ...) +status <- function(object, ...) { - UseMethod("convergence", object) + UseMethod("status", object) } -#' @rdname convergence +#' @rdname status #' @export #' @examples #' \dontrun{ @@ -21,9 +20,9 @@ convergence <- function(object, ...) #' list("FOCUS A" = FOCUS_2006_A, #' "FOCUS B" = FOCUS_2006_C), #' quiet = TRUE) -#' convergence(fits) +#' status(fits) #' } -convergence.mmkin <- function(object, ...) { +status.mmkin <- function(object, ...) { all_summary_warnings <- character() sww <- 0 # Counter for Shapiro-Wilks warnings @@ -51,13 +50,13 @@ convergence.mmkin <- function(object, ...) { u_swn <- unique(names(all_summary_warnings)) attr(result, "unique_warnings") <- all_summary_warnings[u_swn] - class(result) <- "convergence.mmkin" + class(result) <- "status.mmkin" return(result) } -#' @rdname convergence +#' @rdname status #' @export -print.convergence.mmkin <- function(x, ...) { +print.status.mmkin <- function(x, ...) { u_w <- attr(x, "unique_warnings") attr(x, "unique_warnings") <- NULL class(x) <- NULL diff --git a/R/summary.mmkin.R b/R/summary.mmkin.R index 5f4a048b..06472e18 100644 --- a/R/summary.mmkin.R +++ b/R/summary.mmkin.R @@ -1,6 +1,6 @@ #' Summary method for class "mmkin" #' -#' Shows convergence information on the [mkinfit] objects contained in the object +#' Shows status information on the [mkinfit] objects contained in the object #' and gives an overview of ill-defined parameters calculated by [illparms]. #' #' @param object an object of class [mmkin] @@ -24,7 +24,7 @@ summary.mmkin <- function(object, conf.level = 0.95, ...) { err_mod = object[[1, 1]]$err_mod, time = attr(object, "time"), illparms = illparms(object), - convergence = convergence(object) + status = status(object) ) class(ans) <- c("summary.mmkin") @@ -43,8 +43,8 @@ print.summary.mmkin <- function(x, digits = max(3, getOption("digits") - 3), ... } cat("Fitted in", x$time[["elapsed"]], "s\n") - cat("\nConvergence:\n") - print(x$convergence) + cat("\nStatus:\n") + print(x$status) if (any(x$illparms != "")) { cat("\nIll-defined parameters:\n") |