Una opción sería crear una función tal que genere una secuencia aleatoria como la que necesitas y luego utilizar la función replicate pare generarla las veces que necesitas:
generar_seq_random <- function() {
r1 <- c(1, 3, 2, 1, 2, sample(1:4, 1, replace = T), 4, sample(1:4, 1, replace = T),
3, sample(1:4, 1, replace = T), sample(1:4, 1, replace = T), 2, sample(1:4,
1, replace = T), 1, sample(1:4, 1, replace = T), 3)
r1
}
# es una funcion :D
generar_seq_random()
#> [1] 1 3 2 1 2 3 4 3 3 2 2 2 1 1 4 3
generar_seq_random()
#> [1] 1 3 2 1 2 3 4 2 3 1 4 2 4 1 3 3
# replicamos la funcion 100 veces
res <- replicate(100, generar_seq_random())
# trasponemos por que la entrega traspuesta
res <- t(res)
# 100 secuencias de largo 16
dim(res)
#> [1] 100 16
head(res)
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,] 1 3 2 1 2 4 4 4 3 1 2 2 3
#> [2,] 1 3 2 1 2 1 4 2 3 4 4 2 1
#> [3,] 1 3 2 1 2 1 4 2 3 1 3 2 3
#> [4,] 1 3 2 1 2 3 4 1 3 3 1 2 1
#> [5,] 1 3 2 1 2 4 4 1 3 4 3 2 4
#> [6,] 1 3 2 1 2 2 4 1 3 3 3 2 4
#> [,14] [,15] [,16]
#> [1,] 1 1 3
#> [2,] 1 3 3
#> [3,] 1 4 3
#> [4,] 1 1 3
#> [5,] 1 4 3
#> [6,] 1 1 3