RE: Where's the analysis?

Hmm, there are of course two problems if actual balls are used. The normal balls can be unequal ('nope', p-value 0.5131 for v4). And the special balls can be unequal (0.8722).

Ok, the p-values are not significant, but... If actual balls are being used, there will be really tiny differences between balls. So one could currently select:

7 53 5 25 46 - 42

But if prices are shared between winners, one should not select those. Just select some random numbers in the middle...

On the other hand, it could also be that a ball that gets selected is being a little damaged, after which it becomes less likely to be selected. But I expect that a ball that is selected gets smaller and gets even more likely to be selected next time. I did not test for those type of effects yet. :)

Next to that, there could be interactions between balls that get selected together/not together more often. I did not test for them too. Replacement frequency and such is also of influence. Perhaps time for some physical tests? :)

Code (with a small fix):

big=read.table("big.dat",sep="%",fill=T)
big$date=as.Date(apply(big[,1:3],1,paste,collapse="-"))
big$type=ifelse(big$date>="1999-1-13",ifelse(big$date>="2002-3-15",ifelse(big$date>="2005-06-22",4,3),2),1)
chisq.test(table(unlist(big[big$type==4,5:9])),p=rep(1/56,56))
chisq.test(table(unlist(big[big$type==4,10])),p=rep(1/46,46))
z=table(unlist(big[big$type==4,][,5:9]))
z[order(z,decreasing=T)]
z=table(unlist(big[big$type==4,][,10]))
z[order(z,decreasing=T)]

Star This to Save in Your Profile