R/congru.R

In siren: Hybrid FA-CFA for Controlling Acquiescence in Restricted Factorial Solutions

Defines functions congru

Documented in congru

congru = function(A,B){

  B=transpose(B)

  C = solve(sqrt((transpose(A)%*%A))) * (transpose(A) %*% B) * solve(sqrt(transpose(B)%*%B))

}

Try the siren package in your browser