Untitled

set.seed(123)
sort(sample(2:12,size=11,replace=F,prob=c(1/36,2/36,3/36,4/36,5/36,6/36,5/36,4/36,3/36,2/36,1/36)))

##  [1]  2  3  4  5  6  7  8  9 10 11 12

dicea<-sample(1:6,100,T)
diceb<-sample(1:6,100,T)
hist(dicea+diceb)