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