# Example:

source('fa.promax.r')

holzinger = read.table('holzall.dat',header=T)
names(holzinger)
attach(holzinger)

# Standard method of R (promax-rotation):

factanal(~visual+cubes+paper+lozenges+general+
          paragrap+sentence+wordc+wordm+wordr+
          numberr+object+figurew,
          factors=3,rotation='promax')

# Function fa.promax with loadings unsorted:

fa.promax(~visual+cubes+paper+lozenges+general+
           paragrap+sentence+wordc+wordm+wordr+
           numberr+object+figurew,
           factors=3)

# Function fa.promax with loadings sorted by size:

fa.promax(~visual+cubes+paper+lozenges+general+
           paragrap+sentence+wordc+wordm+wordr+
           numberr+object+figurew,
           factors=3,sort=T)

detach(holzinger)