Rename 'convergence' method to 'status'

The reason is that it is misleading in the case of saem.mmkin objects,
because convergence is not really checked there.

1 files changed, 4 insertions, 5 deletions

diff --git a/R/mhmkin.R b/R/mhmkin.R
index 542bddf7..47b84b9d 100644
--- a/R/mhmkin.R
+++ b/R/mhmkin.R
@@ -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")