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