fix more old array syntax issues

paul-buerkner · Jan 18, 2024 · 7ac5224 · 7ac5224
1 parent 0f38c3d
commit 7ac5224
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/inst/chunks/fun_normal_time_se.stan b/inst/chunks/fun_normal_time_se.stan
@@ -66,7 +66,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cov;
     Cov = multiply_lower_tri_self_transpose(sigma * chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i = Cov[iobs, iobs];
       Cov_i += diag_matrix(se2[begin[i]:end[i]]);
       lp[i] = multi_normal_lpdf(y[begin[i]:end[i]] | mu[begin[i]:end[i]], Cov_i);
@@ -91,7 +91,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cor;
     Cor = multiply_lower_tri_self_transpose(chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i;
       Cov_i = quad_form_diag(Cor[iobs, iobs], sigma[begin[i]:end[i]]);
       Cov_i += diag_matrix(se2[begin[i]:end[i]]);

diff --git a/inst/chunks/fun_student_t_time.stan b/inst/chunks/fun_student_t_time.stan
@@ -65,7 +65,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cov;
     Cov = multiply_lower_tri_self_transpose(sigma * chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i = Cov[iobs, iobs];
       lp[i] = multi_student_t_lpdf(
         y[begin[i]:end[i]] | nu, mu[begin[i]:end[i]], Cov_i
@@ -90,7 +90,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cor;
     Cor = multiply_lower_tri_self_transpose(chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i;
       Cov_i = quad_form_diag(Cor[iobs, iobs], sigma[begin[i]:end[i]]);
       lp[i] = multi_student_t_lpdf(

diff --git a/inst/chunks/fun_student_t_time_se.stan b/inst/chunks/fun_student_t_time_se.stan
@@ -68,7 +68,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cov;
     Cov = multiply_lower_tri_self_transpose(sigma * chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i = Cov[iobs, iobs];
       Cov_i += diag_matrix(se2[begin[i]:end[i]]);
       lp[i] = multi_student_t_lpdf(y[begin[i]:end[i]] | nu, mu[begin[i]:end[i]], Cov_i);
@@ -93,7 +93,7 @@
     matrix[rows(chol_cor), cols(chol_cor)] Cor;
     Cor = multiply_lower_tri_self_transpose(chol_cor);
     for (i in 1:I) {
-      int iobs[nobs[i]] = Jtime[i, 1:nobs[i]];
+      array[nobs[i]] int iobs = Jtime[i, 1:nobs[i]];
       matrix[nobs[i], nobs[i]] Cov_i;
       Cov_i = quad_form_diag(Cor[iobs, iobs], sigma[begin[i]:end[i]]);
       Cov_i += diag_matrix(se2[begin[i]:end[i]]);