R/vpAFC.R

vpAFC<-
function (X) 
{

    result <- dudi.coa(data.frame(matrix(X, nrow = nrow(X))), 
        scannf = FALSE, nf = 1)$eig[1]
    result
}

Try the RcmdrPlugin.pointG package in your browser

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

RcmdrPlugin.pointG documentation built on May 2, 2019, 3:26 p.m.