powered by
root.matrix(X)
X
X <- matrix(c(1,2,2,8), ncol=2) test <- root.matrix(X) ## control results X test %*% test
Run the code above in your browser using DataLab