generar todas las combinaciones posibles de un conjunto de caracteres r

x <- c("T", "A", "C", "G")

do.call(expand.grid, rep(list(x), 3))
Crazy Llama