require("MEET")
require("seqinr")
write.fasta <- get("write.fasta",pos="package:seqinr")
read.fasta <- get("read.fasta",pos="package:seqinr")
data(iicc)
training.set.mes.rand<-iicc$Transcriptionfactor
val.set<-c("A","T","C","C","G","T","A","T","T","A","C","G")
test<-Hread(training.set.mes.rand, val.set, iicc)
Run the code above in your browser using DataLab