NFac <- 5
par(mfrow=c(2,2))
for(i in 1:4){
R <- genPhi(NFac,
EigenValPower = 6,
MaxAbsPhi = 0.5)
L <- eigen(R)$values
plot(1:NFac, L,
type="b",
ylab = "Eigenvalues of Phi",
xlab = "Dimensions",
ylim=c(0,L[1]+.5))
}
Run the code above in your browser using DataLab