# This is equal to having the argument `probs = c(1/4, 1/4, 1/4, 1/4)`.
rand_dna_seq <- create_sequence(states = "DNA")
table(rand_dna_seq)
random_letters <- sample(letters, size = 5, replace = FALSE)
rand_dna_seq2 <- create_sequence(
states = random_letters,
probs = c(0.6, 0.3, 0.05, 0.025, 0.025),
len = 10000)
table(rand_dna_seq2)
Run the code above in your browser using DataLab