#Test and training dataset
sample_ind <- sample(nrow(Brexit), (nrow(Brexit) * 0.70))

Brexit_train <- Brexit[sample_ind,]
Brexit_test <- Brexit[-sample_ind,]