Fix no_random_effect with character vector

1 files changed, 1 insertions, 1 deletions

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 {