R/matrix.invroot.calculation.R

Defines functions matrix.invroot.calculation

matrix.invroot.calculation <-
function(V){
    E=eigen(V)
    E.vector=E$vectors
    V.inv.root=E.vector%*%diag(1/sqrt(E$values))%*%t(E.vector)
    rm(E.vector,E)
    V.inv.root
}

Try the PAGWAS package in your browser

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

PAGWAS documentation built on May 30, 2017, 6:40 a.m.