Calculate the classification accuracy at a given phylogenetic level.
Examples
if (FALSE) { # \dontrun{
classifier <- rdp()
seq <- readRNAStringSet(system.file("examples/RNA_example.fasta",
package = "rRDP"
))
### decode the actual classification
actual <- decode_Greengenes(names(seq))
### use RDP to predict the classification
pred <- predict(classifier, seq)
### calculate accuracy
confusionTable(actual, pred, "genus")
accuracy(actual, pred, "genus")
} # }