From 435b7bc8fcbb55b5f487cf5d92d60833daf75ae7 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 2 Jan 2023 10:26:40 +0100 Subject: Fix no_random_effect with character vector --- R/mhmkin.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/mhmkin.R b/R/mhmkin.R index a9798ff4..6265a59e 100644 --- a/R/mhmkin.R +++ b/R/mhmkin.R @@ -134,7 +134,7 @@ mhmkin.list <- function(objects, backend = "saemix", algorithm = "saem", dimnames(fit_indices) <- list(degradation = names(deg_models), error = error_models) - if (is.null(no_random_effect) || length(dim(no_random_effect)) == 1) { + if (is.null(no_random_effect) || is.null(dim(no_random_effect))) { no_ranef <- rep(list(no_random_effect), n.fits) dim(no_ranef) <- dim(fit_indices) } else { -- cgit v1.2.1