if (FALSE) {
sq_dna <- sq(c("ACTGCTG", "CTTAGA", "CCCT", "CTGAATGT"),
alphabet = "dna_bsc")
write_fasta(sq_dna,
c("bat", "cat", "rat", "elephant_swallowed_by_A_snake"),
"~/fasta_rubbish/example.fasta")
}
Run the code above in your browser using DataLab