# NOT RUN {
set.seed(1234)
dataset <- friedman1
nrow(dataset) # print number of rows
split1 <- split_train_test(dataset, pctTrain = 70) # select 70% for training
nrow(split1$trainset) # number of rows of the train set
nrow(split1$testset) # number of rows of the test set
head(split1$trainset) # display first rows of train set
# }
Run the code above in your browser using DataLab