вам не нужно генерировать два вектора
x <- letters[1:26]
matrix(sample(x,26,replace = F),2,13)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
[1,] "s" "m" "h" "z" "q" "y" "w" "x" "p" "n" "e" "o" "j"
[2,] "r" "b" "d" "v" "u" "a" "k" "i" "f" "l" "g" "c" "t"
Вот сокращенная версия
x <- letters
matrix(sample(x),2)