inst/tests/test.wishart.R
In feng-li/movingknots: Efficient Bayesian multivariate surface regression
Sigma <- matrix(c(1, 0, 0, 2), 2)
nu <- 10
IW <- array(0, c(2, 2, 1000))
for(i in 1:1000)
{IW[, , i] <- rwishart(nu = nu, V = solve(Sigma*nu))$IW}
apply(IW, c(1, 2), mean)
Sigma*nu/(nu-3)
feng-li/movingknots documentation built on March 30, 2021, 11:58 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Sigma <- matrix(c(1, 0, 0, 2), 2)
nu <- 10
IW <- array(0, c(2, 2, 1000))
for(i in 1:1000)
{IW[, , i] <- rwishart(nu = nu, V = solve(Sigma*nu))$IW}
apply(IW, c(1, 2), mean)
Sigma*nu/(nu-3)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.