diff options
| -rw-r--r-- | R/lrtest.mkinfit.R | 2 | ||||
| -rw-r--r-- | R/mmkin.R | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/R/lrtest.mkinfit.R b/R/lrtest.mkinfit.R index c3f4d38e..cf07154c 100644 --- a/R/lrtest.mkinfit.R +++ b/R/lrtest.mkinfit.R @@ -74,5 +74,7 @@ lrtest.mkinfit <- function(object, object_2 = NULL, ...) { #' @export lrtest.mmkin <- function(object, ...) { if (nrow(object) != 2 | ncol(object) > 1) stop("Only works for a column containing two mkinfit objects") + object[[1, 1]]$mkinmod$name <- rownames(object)[1] + object[[2, 1]]$mkinmod$name <- rownames(object)[2] lrtest(object[[1, 1]], object[[2, 1]]) } @@ -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 |