> prediction = predict(ir.rpart, ir.test, type="class" )
> table(prediction, ir.test$Species)
> result <- table(prediction, ir.test$Species)
> result

prediction   setosa versicolor virginica
  setosa         13          0         0
  versicolor      0          8         2
  virginica       0          0         7

> sum(diag(result)) / sum(result)
[1] 0.9
