> data(iris) > library(caret) > data(iris) > idx <- caret::createDataPartition(iris$Species, p = 0.7, list = F) > summary(iris$Species) setosa versicolor virginica 50 50 50 > summary(iris[idx,]$Species) setosa versicolor virginica 35 35 35