# NOT RUN {
dir = tempdir()
LNCSeqsADR<-system.file("extdata/",package="ftrCOOL")
LNC50Nuc<-as.vector(read.csv(paste0(LNCSeqsADR,"/LNC50Nuc.csv"))[,2])
mat<-NUC2Binary(seqs = LNC50Nuc,outFormat="mat")
ad<-paste0(dir,"/NUC2Binary.txt")
fileLNC<-system.file("extdata/Athaliana_LNCRNA.fa",package="ftrCOOL")
NUC2Binary(seqs = fileLNC,binaryType="strBin",outFormat="txt",outputFileDist=ad)
# }
Run the code above in your browser using DataLab