powered by
iso_cov(S, n)
p <- 5 n <- 10 S <- rWishart(1, n, diag(p))[,,1] iso_cov(S, n)
Run the code above in your browser using DataLab