R/mat.sqrt.R

Defines functions mat.sqrt

Documented in mat.sqrt

mat.sqrt <-
function(A)
{
   ei<-eigen(A)
   d<-ei$values
   d<-(d+abs(d))/2
   d2<-sqrt(d)
   ans<-ei$vectors %*% diag(d2) %*% t(ei$vectors)
   return(ans)
}

Try the geesmv package in your browser

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

geesmv documentation built on May 2, 2019, 9:40 a.m.