I'm a little confused by your question, so here are two possible answers.
If you want you to select 1000 groups of six values, where groups can share values, then:
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))
If groups should not share values, simply do:
s = sample(d$locs, size=6*2, prob=d$probs, replace=F)
matrix(s, ncol=6)
source
share