powered by
SWP
SWP(V, b)
V
set.seed(100) # generate a symmetric positive definite matrix Sigma <- rWishart(1,4,diag(3))[,,1] # sweep all the columns to produce the inverse Sigma.inv <- SWP(Sigma,1:3)
Run the code above in your browser using DataLab