data("data_titanic")
traindata <- data_titanic[which(data_titanic$dataType == "train"), -13]
testdata <- data_titanic[which(data_titanic$dataType == "test"), -13]
str(traindata)
table(traindata$y)
# The data are used in:
if (FALSE) {
vignette("Rpart_examples")
}
Run the code above in your browser using DataLab