From 5a7cdcdca1ca7084d04c9d6054fef18b6fd6bfde Mon Sep 17 00:00:00 2001 From: Jouni Helske Date: Wed, 4 Sep 2024 08:12:23 +0300 Subject: [PATCH] fix cluster_probs data.frame --- R/get_probs.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/get_probs.R b/R/get_probs.R index cd8ba682..4ad5b2d3 100644 --- a/R/get_probs.R +++ b/R/get_probs.R @@ -229,7 +229,7 @@ get_probs.mnhmm <- function(model, data = NULL, nsim = 0, cluster_probs <- data.frame( cluster = model$cluster_names, id = rep(ids, each = D), - estimate = unlist(get_omega(theta_raw, X_cluster, 0)) + estimate = c(get_omega(theta_raw, X_cluster, 0)) ) if (nsim > 0) {