alpha to vector, run-extended

ropensci · May 24, 2024 · 4b7c2e6 · 4b7c2e6
1 parent a5c87c9
commit 4b7c2e6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/stanblocks_families.R b/R/stanblocks_families.R
@@ -1611,7 +1611,7 @@ transformed_parameters_lines_default <- function(y, idt, noncentered,
   if (has_fixed || has_varying) {
     declare_omega_alpha_1 <- paste_rows(
       "// Time-varying intercept",
-      stan_array(backend, "real", "alpha_{y}", "T"),
+      "vector[T] alpha_{y};",
       "// Spline coefficients",
       "real omega_alpha_1_{y};",
       .indent = idt(1),
@@ -1641,8 +1641,8 @@ transformed_parameters_lines_default <- function(y, idt, noncentered,
     )
   } else {
     declare_omega_alpha_1 <- paste_rows(
-      "// Time-invariant intercept",
-      stan_array(backend, "real", "alpha_{y}", "T"),
+      "// Time-varying intercept",
+      "vector[T] alpha_{y};",
       "real omega_alpha_1_{y} = a_{y};",
       .indent = idt(1),
       .parse = FALSE