How to calculate accuracy from crosstable in r

Question

I\'m trying to learn r from some tutorials.

crosstable(x = data_cleaned$Class[-index], y = net.prediction,
            prop.chisq=FALSE)

How