#Q:兩個骰子中，擲出的機率為多少?
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
#sample:在兩個骰子擲出最小數值為2，最大數值為36
#size:2-12為11個不同的數值
#replace:是否重複抽取，false為不重複
#prob:數值被抽取到的概率舉例一顆骰子，每一個數植被擲出的機率總和皆為1(每一個數值在職骰子過程中皆會出線的機率皆為相同)，且分母為6
dicea<-sample(1:6,100,T)
diceb<-sample(1:6,100,T)
#1.sample:為抽取樣本
#2.():1:6為1~6號
#3.100:為抽取100次
#4.T為重複抽樣
hist(dicea+diceb)