powered by
dwish(W, v, S) rwish(v, S)
dwish
rwish
v
S
## Not run: # density <- dwish(matrix(c(2,-.3,-.3,4),2,2), 3, matrix(c(1,.3,.3,1),2,2)) # draw <- rwish(3, matrix(c(1,.3,.3,1),2,2)) # ## End(Not run)
Run the code above in your browser using DataLab