## load data to test
data(dataTest)
## dimension of the dataset expdata
n <- dim(dataTest)[1]
p <- dim(dataTest)[2]
## perform partition of variables selection
## based on the slope heuristic
resShock <- shockSelect(dataTest)
Run the code above in your browser using DataLab