作者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