Model names in lrtest.mmkin, fix for print.mmkin

Fix the display of warnings and errors in print.mmkin, the matrix was
erroneously transposed.

1 files changed, 3 insertions, 2 deletions

diff --git a/R/mmkin.R b/R/mmkin.R
index f3c07e42..96453e1d 100644
--- a/R/mmkin.R
+++ b/R/mmkin.R
@@ -98,6 +98,8 @@ mmkin <- function(models = c("SFO", "FOMC", "DFOP"), datasets,
     model_index <- w[1]
     dataset_index <- w[2]
     res <- try(mkinfit(models[[model_index]], datasets[[dataset_index]], ...))
+    if (!inherits(res, "try-error")) res$mkinmod$name <- names(models)[model_index]
+    return(res)
   }
 
   if (is.null(cluster)) {
@@ -156,8 +158,7 @@ print.mmkin <- function(x, ...) {
   all_summary_warnings <- character()
   sww <- 0 # Counter for Shapiro-Wilks warnings
 
-  x_t <- t(x) # To make lapply work by rows
-  display <- lapply(x_t,
+  display <- lapply(x,
     function(fit) {
       if (inherits(fit, "try-error")) return("E")
       sw <- fit$summary_warnings