##---- 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) #function call
{
simdata=matrix(rnorm(ncases*nvariables),nrow=ncases,ncol=nvariables) #make up simulated data
testsim <- VSS(simdata,8,"none")
return(testsim)
}
Run the code above in your browser using DataLab