##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(ncases,nvariables,scree=FALSE,rotate="none") #function call
{
simdata=matrix(rnorm(ncases*nvariables),nrow=ncases,ncol=nvariables) #make up simulated data
if(scree) {VSS.scree(simdata)
testsim <- simdata} else {testsim <- VSS(simdata,8,rotate)}
return(testsim)
}
Run the code above in your browser using DataLab