Skip to main content

Browse the archive

Revision 923d0cc1f43c36debbea1f1fb06e4de448065380 authored by Gilles Raiche on 31 August 2019, 09:11:55 UTC, committed by cran-robot on 31 August 2019, 09:11:55 UTC 
version 2.3.3.1
1 parent 592b098
Raw File
corFA.r 
"corFA" <-
function(R, method="ginv") {
 R <- as.matrix(R)
 if (method == "ginv") return(R - ginv(diag(diag(ginv(R)))))
 }
back to top