Brexit_model_final <- rpart(Percent.Leave ~ . , 
data = Brexit, method = "class", 
control = rpart.control(cp = TYPE_YOUR_CP_VALUE))