for(i in seq(2, 24,3)){
  print(i)
  controlTree <- c(minbucket = 1, xval = 0, cp=-1, maxdepth = i)
  treeCart <- rpart(trainData$class ~ ., data=trainData, control = controlTree)
  predictions<-predict(treeCart, newdata = testData, type = "class")
  print(confusionMatrix(predictions,testData$class))
  rpart.plot(treeCart)
  flush.console()
}