Brexit_test$pred <- predict(Brexit_model_final, Brexit_test, type = "class")
base_accuracy <- mean(Brexit_test$pred == Brexit_test$Percent.Leave)

base_accuracy