R generate random dna sequence