Я немного запутался с вашим вопросом, поэтому здесь есть два возможных ответа.
Если вы хотите выбрать 1000 групп из шести значений, где группы могут иметь общие значения, тогда:
locs = letters[1:15]
probs = c(0.1,NA,0.01,0.2,0.6,NA,0.001,0.03,0.9,NA, 0.1, 0.1, 0.1, 0.1, 0.1)
mydata = data.frame(locs,probs)
d = na.omit(mydata)
replicate(1000, sample(d$locs, size=6, prob=d$probs, replace=F))
Если группы не должны иметь общие значения, просто сделайте:
## Change the "2" to 1000 in the real data set
s = sample(d$locs, size=6*2, prob=d$probs, replace=F)
matrix(s, ncol=6)