所以sn 包有rmsn 函数,它清楚地显示了以下代码部分:
function (n = 1, xi = rep(0, length(alpha)), Omega, alpha, tau = 0, dp = NULL) {
//....
lot <- dp2cpMv(dp = dp0, family = "SN", aux = TRUE)
d <- length(dp0$alpha)
y <- matrix(rnorm(n * d), n, d) %*% chol(lot$aux$Psi)
//....
}
这与mvtnorm::rmvn 的工作方式非常相似,只是chol() 方法中的矩阵来自核心库here 中的dp2cpMv 函数。您可以将其移植到您的 functions{} 块中。在你的 stan 程序中(我假设 chol() 中的 cov 矩阵是一个参数)
functions {
// Contains code for your ported cholesky factor
}
transformed parameters {
matrix[K, J] z;
cholesky_factor_corr[K] L_tri = dp2cvClone(...); // Cholesky factor from your function{} block..
beta = foo + (L_tri * z)'; // Assuming foo is baseline parameter representing the mean of dimensionality J*K.
....
}
parameters {
matrix[K, J] beta; //# J levels/groups and K dimensional parameters
to_vector(z) ~ normal_pdf(0, 1);
....
}
此外,如果dp2cvClone() 的输入是数据,您可能希望将内容从转换的参数块转移到数据或转换的数据块。但你明白了。
最后一段代码摘自 stan 手册 section 8.15 并为简洁起见进行了释义,并希望捕捉到使其工作所需的重要部分。