R/VSS.parallel.R

"VSS.parallel" <-
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)
 }

Try the psych package in your browser

Any scripts or data that you put into this service are public.

psych documentation built on May 7, 2018, 1:04 a.m.