[my_data  <- read.csv("Apprentices by ECHP c.csv",  header = TRUE)
#rm(my_data_transform)
#my_data_transform <- data.frame(filter(my_data, EHP == "1"))
my_data_transform = my_data[my_data$EHP == 1 ,]

str(my_data_transform)

#equation <- my_data_transform ~ Gender_Description  + Age_Group
result <- rpart(my_data_transform ~ Gender_Description  + Age_Group, data=my_data_transform, method ="class")][1]