seq <- readRNAStringSet(system.file("examples/RNA_example.fasta",
package="rRDP"))
### the FASTA annotation is read as names. This data has a Greengenes format
### annotation
names(seq)
classification <- decode_Greengenes(names(seq))
classification
### look at the Genus of all sequences
classification[, "Genus"]
### to train the RDP classifier, the annotations need to be in RDP format
annotation <- encode_RDP(classification)
names(seq) <- annotation
seq
### now we can train the classifier
customRDP <- trainRDP(seq)
customRDP
## clean up
removeRDP(customRDP)
Run the code above in your browser using DataLab