Try this one
library(MASS)
iris.lda <- lda(Species ~ . , data = iris)
table(predict(iris.lda, type="class")$class, iris$Species)
setosa versicolor virginica
setosa 50 0 0
versicolor 0 48 1
virginica 0 2 49