require("MEET")
require("seqinr")
data(iicc)
data(TranscriptionFactor)
pathMEET <- system.file("sequences", package = "MEET")
iicc$method<-"MATCH"
iicc$vector<-c(0.5, 0.8)
kfold.MATCH(iicc, Seqin = paste(pathMEET, "AP1.fa", sep = "/"))
Run the code above in your browser using DataLab