# NOT RUN {
##generate a symmetric positive-definite matrix
x <- crossprod(matrix(rnorm(15),5,3))
rate <- crossprod(matrix(rnorm(15),5,3)) #the prior inverse-scale of x
dWishart(x,df = 5,rate = rate,LOG = TRUE)
dWishart(x,df = 5,rate = rate,LOG = FALSE)
# }
Run the code above in your browser using DataLab