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

prediction   setosa versicolor virginica
  setosa         13          0         0
  versicolor      0          8         1
  virginica       0          0         8


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