В ваших условиях вы можете получить максимум 13 образцов, т.е. 26 * 3 / 6 = 13
. Вот один из способов получить их -
set.seed(2)
m <- matrix(sample(rep(letters, 3)), nrow = 6)
m
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
[1,] "o" "j" "y" "a" "s" "a" "j" "g" "p" "x" "x" "p" "y"
[2,] "c" "h" "l" "e" "l" "z" "m" "f" "x" "n" "d" "v" "o"
[3,] "r" "g" "z" "m" "h" "p" "q" "v" "v" "a" "e" "c" "o"
[4,] "m" "l" "b" "w" "k" "n" "f" "s" "b" "u" "d" "h" "y"
[5,] "r" "u" "i" "u" "w" "e" "t" "f" "r" "w" "t" "t" "z"
[6,] "q" "q" "n" "i" "g" "s" "k" "k" "c" "j" "i" "d" "b"
table(m)
m
a b c d e f g h i j k l m n o p q r s t u v w x y z
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3