# NOT RUN {
if(interactive()){
# Split the data into 70/30 train and test sets for factor y
data(septoriaDurumWC)
split.data <- splitData(septoriaDurumWC, seed = 1234,
y = 'ST_S', p = 0.7)
# Get training and test sets from list object returned
trainset <- split.data$trainset
testset <- split.data$testset
}
# }
Run the code above in your browser using DataLab