add_motifs: injects motifs to a sequence
In jakubkala/QuiPTsim:

Description Usage Arguments Value Examples

injects motifs to a sequence

1	add_motifs(motifs, sequence)

`motifs`	list of motifs to be injected
`sequence`	vector of alphabet elements

list(sequence, motifs, masks)

# simple injection
add_motifs(list(c(1, "_", 1), c(1, 1)), c(2, 2, 3, 4))
# little bit more interesting
alph <- as.character(1L:4)
motifs <- generate_motifs(alph, 2)
example_sequence <- simulate_single_sequence(12, alph)
add_motifs(motifs, example_sequence)