作者deamor (lucky girl)
看板NCCU09_SOCIO
標題[心得] 統計作業--大樂透
時間Wed Sep 23 22:25:57 2009
大家統計作業應該都寫完了吧 但還是分享一下
這是強者同學用統計軟體R寫的（但我作業不是用這個，因為還在試圖理解R的階段...）
--------------------------------------------------------------------------
## 生成球組，為一數列1~49，存在balls變數
balls <- seq(1,49,1)
## 設定這次開出彩球為 3,4,8,12,21,42
winnum <- c(3,4,8,12,21,42)
## 重複10次電腦選號(10可以改成1000，下面for()中的也需要改)
## 由球組中抽出不放回
x <- replicate(1000,sample(balls,6))
## 迴圈開始比對
for(i in 1:1000){
## 將資料比對，如果數字重複出現(也就是出現次數不等於1)時，判定為一個中獎
y[i] <- sum(table(cbind(x[,i],winnum))!=1)
}
## 迴圈結束
## 將每組結果併入x矩陣的下面，所顯示的y值為中獎個數
x <- rbind(x,y)
## 顯示出中獎各數及中獎彩卷張數
table(y)
看了以後覺得好想學這個統計軟體阿..真不敢相信就這麼幾行 而且好快!
軟體還是免費下載的...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.217.147.70
※ 編輯: deamor 來自: 61.217.147.70 (09/23 23:12)
1F：推 way0963:這這這這....神人境界了 09/24 00:32
2F：推 sdsd123:自主隔離還能做作業~太認真 09/24 00:34
3F：推 andy80211:真神人也!祝妳早日康復! 09/24 00:36