powered by
mhalf(M)
H
H^2
M
## The function is currently defined as function (M) { tmp <- eigen(M) tmp$vec %*% sqrt(diag(tmp$val, nrow = nrow(M))) %*% t(tmp$vec) }
Run the code above in your browser using DataLab