Using seqinr package in R to count bases of an DNA sequence

Question

I have an array which was extracted from a fasta file

> dat
  [1] "t" "a" "t" "t" "t" "a" "