powered by
rmunorm(mu, sig)
dmunorm
sig
x
mu
bayesm
rmvnorm
rmunorm
test=NULL for (t in 1:10^4) test=rbind(test,rmunorm(rep(1,2),matrix(c(1,-2,-2,10),ncol=2))) cor(test[,1],test[,2])*sqrt(10) # should be close to -2
Run the code above in your browser using DataLab