五 262009
话说最近两个月一直再买双色球,而且用“守号”策略,每期必买:
红:”03″,”09″,”12″,”22″,”24″,”33″
蓝:”07″
虽说只中过一次 5 RMB,但仍然乐此不疲。只是有一点不是太爽,每次开奖之后必须要去中彩网 看是否中奖,麻烦的很。然后么,写了几行 R 代码,自动让 R 去匹配开奖结果。每天当我打开 R 是,R 会告诉我中了几等奖~~(当然一般都不中-_-)
为了方便广大的彩票爱好者和 R 爱好者,我把具体用法贴出来——在 R 主目录 etc 下 Rprofile.site 文件加这么几行:
# 选择红色球
pick_red <- c("03","09","12","22","24","33")
#选择的蓝色球
pick_blue <- "07"
source("http://sunbjt.googlepages.com/TB.r")
一般呢,当你打开R时,你会看到"Try again,loser!"。中奖是很难的,嘿嘿!如果你以0.000000005642994 的概率成为幸运儿的话,别忘了告诉我喔。
Pingback: 谢益辉: 统计学博文导读:内贾德大选作弊?流星撞飞机的概率?买双色球? | 统计之都