data(iris)
m1 <- J48(Species ~ ., iris)
m1
table(iris$Species, predict(m1))
## Using some Weka data sets ...
## J48
DF2 <- read.arff(system.file("arff", "contact-lenses.arff",
package = "RWeka"))
m2 <- J48(`contact-lenses` ~ ., data = DF2)
m2
table(DF2$`contact-lenses`, predict(m2))
## M5P
DF3 <- read.arff(system.file("arff", "cpu.arff",
package = "RWeka"))
m3 <- M5P(class ~ ., data = DF3)
m3
## Logistic Model Tree.
DF4 <- read.arff(system.file("arff", "weather.arff",
package = "RWeka"))
m4 <- LMT(play ~ ., data = DF4)
m4
table(DF4$play, predict(m4))
Run the code above in your browser using DataLab