randomly split data in r 25% code example

Example: how to split train and test data in r

library(caTools)
sample <- sample.split(data$y, SplitRatio = 0.7)
train_data <- subset(data, sample == TRUE)
test_data <- subset(data, sample == FALSE)