1data {
2  int d_int;
3  matrix[d_int, d_int] d_matrix;
4  row_vector[d_int] d_row_vector;
5}
6transformed data {
7  row_vector[d_int] transformed_data_row_vector;
8  matrix[d_int, d_int] transformed_data_matrix;
9  transformed_data_matrix = mdivide_right(d_matrix, d_matrix);
10  transformed_data_row_vector = mdivide_right(d_row_vector, d_matrix);
11}
12parameters {
13  real y_p;
14  matrix[d_int, d_int] p_matrix;
15  row_vector[d_int] p_row_vector;
16}
17transformed parameters {
18  row_vector[d_int] transformed_param_row_vector;
19  matrix[d_int, d_int] transformed_param_matrix;
20  transformed_param_matrix = mdivide_right(d_matrix, d_matrix);
21  transformed_param_row_vector = mdivide_right(d_row_vector, d_matrix);
22  transformed_param_matrix = mdivide_right(p_matrix, d_matrix);
23  transformed_param_row_vector = mdivide_right(p_row_vector, d_matrix);
24  transformed_param_matrix = mdivide_right(d_matrix, p_matrix);
25  transformed_param_row_vector = mdivide_right(d_row_vector, p_matrix);
26  transformed_param_matrix = mdivide_right(p_matrix, p_matrix);
27  transformed_param_row_vector = mdivide_right(p_row_vector, p_matrix);
28}
29model {
30  y_p ~ normal(0, 1);
31}
32
33