powered by
splitSeqsToFiles(x, totalFiles = 4, suffix = "tempy", filename = "queryFile.fa")
blatSeqs
seqs <- DNAStringSet(sapply(sample(c(100:1000), 500), function(size) paste(sample(DNA_BASES, size, replace=TRUE), collapse=""))) splitSeqsToFiles(seqs,5,"tempyQ","myDNAseqs.fa")
Run the code above in your browser using DataLab