M[i]

helske · Nov 25, 2024 · 808d888 · 808d888
1 parent 8267f66
commit 808d888
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/coef.R b/R/coef.R
@@ -56,9 +56,9 @@ coef.nhmm <- function(object, probs, ...) {
       lapply(
         seq_len(object$n_channels), function(i) {
           data.frame(
-            state = rep(object$state_names, each = M * K),
+            state = rep(object$state_names, each = M[i] * K),
             observation = object$symbol_names[[i]],
-            parameter = rep(coef_names, each = M),
+            parameter = rep(coef_names, each = M[i]),
             estimate = c(object$gammas$B[[i]]) / rep(sd_B_X, each = M[i])
           )
         }