I want all the codes to run properly, then you to knit the file and send me the

I want all the codes to run properly, then you to knit the file and send me the pdf and all the tables.
Once you figure out all acuracy values you can add a table to compare the values of the supervised models, as this one:
Model <- c('Decision Tree-C5.0','Random Forest','kNN','SVM-vanilladot') Accuracy_percent <- c(88.57,88.32,88.29,88.00) mytable<- data.frame(Model, Accuracy_percent) qplot(1:10, 1:10, geom = "blank") + theme(line = element_blank(), text = element_blank()) + annotation_custom(grob = tableGrob(mytable))