fix cluster_probs data.frame

helske · Sep 4, 2024 · 5a7cdcd · 5a7cdcd
1 parent e00dd6e
commit 5a7cdcd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {