powered by
posterior.mode(x)
v<-rIW(10, as.matrix(1), n=1000) hist(v) abline(v=posterior.mode(v), col="red")
Run the code above in your browser using DataLab