R

install.packages("mlbench")

data(Zoo)

str(Zoo)

Zoo.scaled <- cbind(as.data.frame(scale(Zoo[,-17])), type = Zoo[,17])

http://topepo.github.io/caret/modelList.html

https://www.r-project.org/nosvn/conferences/useR-2013/Tutorials/kuhn/user_caret_2up.pdf

trans2 = read.transactions("basket.csv", format = "basket", sep=",")

rules = apriori(trans2, parameter=list(support=0.01, confidence=0.5));

inspect(rules)

Cay quyết định với Entropy

http://data-mining.business-intelligence.uoc.edu/home/j48-decision-tree

library("e1071", lib.loc="~/R/win-library/3.3") naiveFit =naiveBayes(type~.,data=Zoo.train)

Zoo.pre = predict(naiveFit, newdata=Zoo.test, class="type")