data {
int<lower=1> p;
vector[p] mu;
cholesky_factor_cov[p,p] L;
real<lower=0> nu;
}
parameters {
vector[p] z;
real<lower=0> u;
}
transformed parameters {
vector[p] x;
x = mu + sqrt(nu / u) * (L * z); // distributed multi_student_t
}
model {
target += normal_lpdf(z | 0, 1);
target += chi_square_lpdf(u | nu);
}
3 Likes