
Last chance! 50% off unlimited learning
Sale ends in
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