R學習之統計實驗（二）--擲色子問題（R語言編程）-----數模

問題

問題一顆股子投4次至少得到一個六點與兩顆般子投24次至少得到 一個雙六點，這兩個事件哪一個概率更大？

直接R模擬（大數定律）

注意括號各種英文輸入，R語言編寫時候看不出明顯區別

sice<-function(n){
  p1=0;p2=0;
  for (i in 1:n) {
    u1<-runif(4);x1<-floor(u1*6)+1;
    if(max(x1)==6){p1=p1+1}
    x2<-floor(6*runif(24))+1;
    x3<-floor(6*runif(24))+1;
    if(max(x2+x3)==12){p2=p2+1}
  }
  rt<-c('P(A)'= p1/n,'P(B)'= p2/n);rt;
}
sice(10000);

runif等函數之前介紹過，這裏不介紹
max
這裏表示找到向量得最大值

> max(c(1,2,1.11,1,2,4,5))
[1] 5

用法基本都圍繞最大值詳見

運行結果

> source('C:/Users/默默/Desktop/R/sice.R', echo=TRUE)

> sice<-function(n){
+   p1=0;p2=0;
+   for (i in 1:n) {
+     u1<-runif(4);x1<-floor(u1*6)+1;
+     if(max(x1)==6){p1=p1+1}
+     x2<-floor(6*runif(2 .... [TRUNCATED] 

> sice(10000);
  P(A)   P(B) 
0.5173 0.4974 

結論第一種機率大