Tetranucleotide frequency (TNF) counting tool for Mathematica
<< TNFCount`
sequence = "AAAACAA";
sequences = Import["BS.fasta"];
Print @ TNF[sequence]
Print @ BidirectionalTNF[sequence]
Print @ CanonicalTNF[sequence]
Print @ ContigsTNF[sequences]
Print @ BidirectionalContigsTNF[sequences]
Print @ CanonicalContigsTNF[sequences]
Print @ TNFSymbols[]
Print @ CanonicalSymbols[]