R/mhalf.R

"mhalf" <-
function(A) {
   d <- diag(eigen(A)$values)
   v <- eigen(A)$vectors
   Ah <- v%*%solve(sqrt(d))%*%t(v)
}

Try the calibrate package in your browser

Any scripts or data that you put into this service are public.

calibrate documentation built on July 1, 2020, 7:03 p.m.