powered by
diwish(W, v, S)
riwish
x <- diwish(matrix(c(2,-.3,-.3,4),2,2), 3, matrix(c(1,.3,.3,1),2,2))
Run the code above in your browser using DataLab