## Note -- To input the data and delete cases with missing data
## Set up a working directory
## Move LongPerkinsTime1SCI.csv to that directory
## Copy Dirk Enzmann's fa.promax.R to that directory 
## Make sure that is your current working directory
## Then run the following commands

library(sem)
library(Hmisc)
LongPerkinsData <- read.table("LongPerkinsTime1SCI.csv", header=TRUE, sep=",")
data <- na.omit(LongPerkinsData)

## to run a factor analysis with Promax and Varimax rotations
## as a preliminary to an exploratory-confirmatory factor analysis
## run the following commands

source("fa.promax.R")
fa.promax(data,factors=3)

## Note that, if you want to run LISREL on these data, you can
## just compute the correlation matrix on the data and copy that to ## a file.