# NOT RUN {
M <- matrix(rnorm(2e2),20,10)
Sigma <- var(M)
Sigma.half <- matrixPower(Sigma, power = 1/2, symmetric = FALSE)
round(crossprod(Sigma.half)-Sigma,5)
Sigma.m1 <- matrixPower(Sigma, power = -1, symmetric = FALSE)
round(Sigma.m1 %*% Sigma,5)
# }
Run the code above in your browser using DataLab