fac: Left square root of X'X

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

fac(x)

Arguments

x

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x) 
{
    xx <- svd(x)
    ret <- t(xx$v) * sqrt(pmax(xx$d, 0))
    ret
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.