### Use the default classifier
seq <- readRNAStringSet(system.file("examples/RNA_example.fasta",
package="rRDP"))
## shorten names
names(seq) <- sapply(strsplit(names(seq), " "), "[", 1)
seq
## use rdp for classification (this needs package rRDPData)
pred <- predict(rdp(), seq)
pred
attr(pred, "confidence")
### Train a custom RDP classifier on new data
trainingSequences <- readDNAStringSet(
system.file("examples/trainingSequences.fasta", package="rRDP"))
customRDP <- trainRDP(trainingSequences)
customRDP
testSequences <- readDNAStringSet(
system.file("examples/testSequences.fasta", package="rRDP"))
predict(customRDP, testSequences)
## clean up
removeRDP(customRDP)
Run the code above in your browser using DataLab