as.array

helske · Sep 15, 2024 · 548e9c5 · 548e9c5
1 parent 4e87c52
commit 548e9c5
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/R/fit_mnhmm.R b/R/fit_mnhmm.R
@@ -76,7 +76,7 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, threads, verbose, penaliz
             X_o = model$X_emission,
             X_d = model$X_cluster,
             obs = obs,
-            ids = seq_len(model$n_sequences),
+            ids = as.array(seq_len(model$n_sequences)),
             N_sample = model$n_sequences
           ),
           as_vector = FALSE,
@@ -128,7 +128,7 @@ fit_mnhmm <- function(model, inits, init_sd, restarts, threads, verbose, penaliz
         X_o = model$X_emission,
         X_d = model$X_cluster,
         obs = obs, 
-        ids = seq_len(model$n_sequences),
+        ids = as.array(seq_len(model$n_sequences)),
         N_sample = model$n_sequences
       ), 
       as_vector = FALSE,

diff --git a/R/fit_mnhmm2.R b/R/fit_mnhmm2.R
@@ -81,7 +81,7 @@ fit_mnhmm2 <- function(model, inits, init_sd, restarts, threads, verbose,
             X_o = model$X_emission,
             X_d = model$X_cluster,
             obs = obs,
-            ids = ids,
+            ids = as.array(ids),
             N_sample = n
           ),
           as_vector = FALSE,
@@ -121,7 +121,7 @@ fit_mnhmm2 <- function(model, inits, init_sd, restarts, threads, verbose,
             X_o = model$X_emission,
             X_d = model$X_cluster,
             obs = obs,
-            ids = seq_len(model$n_sequences),
+            ids = as.array(seq_len(model$n_sequences)),
             N_sample = model$n_sequences
           ),
           as_vector = FALSE,

diff --git a/R/fit_nhmm.R b/R/fit_nhmm.R
@@ -69,7 +69,7 @@ fit_nhmm <- function(model, inits, init_sd, restarts, threads, verbose, penalize
             X_s = model$X_transition,
             X_o = model$X_emission,
             obs = obs,
-            ids = seq_len(model$n_sequences),
+            ids = as.array(seq_len(model$n_sequences)),
             N_sample = model$n_sequences
           ),
           as_vector = FALSE,
@@ -118,7 +118,7 @@ fit_nhmm <- function(model, inits, init_sd, restarts, threads, verbose, penalize
         X_s = model$X_transition,
         X_o = model$X_emission,
         obs = obs,
-        ids = seq_len(model$n_sequences),
+        ids = as.array(seq_len(model$n_sequences)),
         N_sample = model$n_sequences
       ), 
       as_vector = FALSE,