# NOT RUN {
data(concrete)
library(caret)
### Split used in the book:
set.seed(975)
inTrain <- createDataPartition(mixtures$CompressiveStrength, p = 3/4)[[1]]
training <- mixtures[ inTrain,]
testing <- mixtures[-inTrain,]
# }
Run the code above in your browser using DataLab