## ----IntroML-DecTree-CTytpe-_1, fig.width=10, fig.height=8---------------
library(C50)
load("Data/CoverageType/CovType2.R")
rows <- nrow(covtype)
covtype <- covtype[sample(rows,rows/100), ]
str(covtype)
modelCT <- C5.0(Class ~ ., data=covtype, control = C5.0Control(noGlobalPruning = TRUE,minCases=1))
plot(modelCT, main="C5.0 Decision Tree - Unpruned, min=1")


## ----IntroML-DecTree-CTytpe-_2, fig.width=10, fig.height=8---------------
summary(modelCT)
C5imp(modelCT,metric='usage')


## ----IntroML-DecTree-CTytpe-_3-------------------------------------------
modelCT2 <- C5.0(Class ~ ., data=covtype, control = C5.0Control(noGlobalPruning = FALSE,minCases=50))
plot(modelCT2, main="C5.0 Decision Tree - Pruned, min=20")


## ----IntroML-DecTree-CTytpe-_4-------------------------------------------
summary(modelCT2)
C5imp(modelCT2,metric='usage')