R/half.R

"half" <-
function(A) {
   d <- diag(eigen(A)$values)
   v <- eigen(A)$vectors
   Ah <- v%*%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.