data <- xAPI.Edu.Data
set.seed(500)
temp <- sample(1:nrow(data), 360) #75%
train <- data[temp, ]
test <- data[-temp, ]
model <- C5.0(Class~raisedhands+VisITedResources+Discussion, data = train)
C5result <- predict(object=model, newdata=test, type="class")
table(C5result, test$Class)
plot(model)
summary(model)