最后,我们比较关心的问题就是:连号的出现有规律可循吗?为了回答这个问题,我们要利用计算机,模拟随机抽取中奖号码的过程。然后比较随机抽取的结果,和我们实际统计的结果是否有差别。话不多说,模拟的代码如下:
# Model Red Ball
D <- data.frame()
for (j in 1:10000) { # 随机从1-35个数字中,抽取5个,1万次
a1 <- sort(sample(1:35, 5))
a2 <- split(a1, cumsum(c(1, diff(a1) != 1))) # 挑出连号
for (i in 1:length(a2)) {
if (length(a2[])>1) {
a3 <- data.frame(Seq=j,
Serial=paste(a2[], collapse=&#39;-&#39;),
Len=length(a2[]))
D <- rbind(D, a3)
}
}
}
D %>% mutate_if(is.factor, as.character) -> D
比较结果如下: