# \donttest{
# Classification - cross validation
library(BASiNET)
arqSeqMRNA <- system.file("extdata", "sequences2.fasta", package = "BASiNET")
arqSeqLNCRNA <- system.file("extdata", "sequences.fasta", package = "BASiNET")
classification(mRNA=arqSeqMRNA,lncRNA=arqSeqLNCRNA)
classification(mRNA=arqSeqMRNA,lncRNA=arqSeqLNCRNA, save="example") #Save Tree to Predict Sequences
# Prediction
mRNApredict <- system.file("extdata", "sequences2-predict.fasta", package = "BASiNET")
lncRNApredict <- system.file("extdata", "sequences-predict.fasta", package = "BASiNET")
modelPredict <- system.file("extdata", "modelPredict.dat", package = "BASiNET")
classification(mRNApredict,lncRNApredict,load=modelPredict)
# }
Run the code above in your browser using DataLab