aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2023-01-02 10:26:40 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2023-01-02 10:26:40 +0100
commit435b7bc8fcbb55b5f487cf5d92d60833daf75ae7 (patch)
tree3a7ddcdcc631302f8f3ef1ebea591984f60a489f
parenta89a835e0fd6fe55e4c7353e99cc442c4d309bc1 (diff)
Fix no_random_effect with character vector
-rw-r--r--R/mhmkin.R2
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 {

Contact - Imprint