| Title: | Results from the Virginia Lottery Draw Games |
|---|---|
| Description: | Historical results for the state of Virginia lottery draw games. Data were downloaded from https://www.valottery.com/. |
| Authors: | Clay Ford [cre, aut] |
| Maintainer: | Clay Ford <[email protected]> |
| License: | CC0 |
| Version: | 0.0.1 |
| Built: | 2025-03-01 05:36:17 UTC |
| Source: | https://github.com/clayford/valottery |
Historical data for the CASH4LIFE game. Game play: Pick five different numbers from 1 through 60; then select one Cash Ball number from 1 through 4.
cash.4.lifecash.4.life
A data frame with 34 rows and 7 variables:
date of draw
cash ball result
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
## Check numbers drawn are uniformly distributed x <- qunif(ppoints(nrow(cash.4.life)*5),1,60) y <- sort(unlist(cash.4.life[,3:7])) qqplot(x,y)## Check numbers drawn are uniformly distributed x <- qunif(ppoints(nrow(cash.4.life)*5),1,60) y <- sort(unlist(cash.4.life[,3:7])) qqplot(x,y)
Historical data for the Cash 5 once daily game. Game Play: Pick five numbers from 1 through 34. Note: On April 11, 1999, Cash 5 switched to twice daily drawings.
cash.5.1xdaycash.5.1xday
A data frame with 1187 rows and 6 variables:
date of draw
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
Historical data for the Cash 5 twice daily game. Game Play: Pick five numbers from 1 through 34. Note: On April 11, 1999, Cash 5 switched to twice daily drawings.
cash.5.2xdaycash.5.2xday
A data frame with 11,164 rows and 7 variables:
date of draw
time of drawing: day or night
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
max.days <- apply(subset(cash.5.2xday,time=="day",-(1:2)),1,max) max.nights <- apply(subset(cash.5.2xday,time=="night",-(1:2)),1,max) op <- par(mfrow=c(1,2)) hist(max.days) hist(max.nights) par(op)max.days <- apply(subset(cash.5.2xday,time=="day",-(1:2)),1,max) max.nights <- apply(subset(cash.5.2xday,time=="night",-(1:2)),1,max) op <- par(mfrow=c(1,2)) hist(max.days) hist(max.nights) par(op)
Historical data for the Decades of Dollars game. You pick six (6) numbers, the Lottery will then select six (6) numbered balls. Note: This game was discontinued in favor of CASH4LIFE.
decades.of.dollarsdecades.of.dollars
A data frame with 443 rows and 7 variables:
date of draw
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
6th number in order
Historical data for the Mega Millions game. On October 22, 2013, the format changed from 5/56 + 1/46 to the current 5/75 + 1/15 format. Game play: Pick five different numbers from 1 through 75; then select one Mega Ball number from 1 through 15.
mega.mill.1mega.mill.1
A data frame with 1,713 rows and 7 variables:
date of draw
megaball result
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
Historical data for the Mega Millions game. On October 22, 2013, the format changed from 5/56 + 1/46 to the current 5/75 + 1/15 format. Game play: Pick five different numbers from 1 through 56; then select one Mega Ball number from 1 through 46.
mega.mill.2mega.mill.2
A data frame with 194 rows and 7 variables:
date of draw
megaball result
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
Historical data for the $1,000,000 Money Ball game. Game Play: pick five numbers 1 - 35, the Lottery then selects five numbered balls. If the Gold Million Dollar Money Ball is drawn before all five numbers have been selected, the top prize jumps to $1,000,000. Note: This game was discontinued 8/29/15.
money.ballmoney.ball
A data frame with 100 rows and 7 variables:
date of draw
money ball result: yes or no
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
## probability of drawing money ball before first 5 balls (1/36) + (1/35) + (1/34) + (1/33) + (1/32) ## observed money ball results prop.table(table(money.ball$moneyball)) ## simulate money ball draws before first 5 draws set.seed(123) mean(replicate(1000, any(sample(c(1:35,"mb"),5)=="mb")))## probability of drawing money ball before first 5 balls (1/36) + (1/35) + (1/34) + (1/33) + (1/32) ## observed money ball results prop.table(table(money.ball$moneyball)) ## simulate money ball draws before first 5 draws set.seed(123) mean(replicate(1000, any(sample(c(1:35,"mb"),5)=="mb")))
Historical data for the Pick 3 once daily game. Game Play: Pick a three digit number from 000 through 999. Note: On January 30, 1995, Pick 3 switched to twice daily drawings.
pick.3.1xdaypick.3.1xday
A data frame with 1,777 rows and 4 variables:
date of draw
1st digit
2nd digit
3rd digit
lapply(pick.3.1xday[,-1],function(x)round(prop.table(table(x)),2))lapply(pick.3.1xday[,-1],function(x)round(prop.table(table(x)),2))
Historical data for the Pick 3 twice daily game. Game Play: Pick a three digit number from 000 through 999. Note: On January 30, 1995, Pick 3 switched to twice daily drawings.
pick.3.2xdaypick.3.2xday
A data frame with 13,790 rows and 5 variables:
date of draw
time of drawing: day, night1 or night2 (Note: two nightly drawings were held on 10/30/08 and 11/09/08)
1st digit
2nd digit
3rd digit
Historical data for the Pick 4 once daily game. Game play: Pick a four digit number from 0000 through 9999. Note: On January 30, 1995, Pick 4 switched to twice daily drawings.
pick.4.1xdaypick.4.1xday
A data frame with 1,041 rows and 5 variables:
date of draw
1st digit
2nd digit
3rd digit
4th digit
## Any Pick 4 happen more than once? results <- apply(pick.4.1xday[,-1],1,function(x)paste(x,collapse = "")) any(table(results) > 1) ## Which numbers? i <- which(table(results) > 1,useNames = FALSE) sort(table(results)[i],decreasing = TRUE)## Any Pick 4 happen more than once? results <- apply(pick.4.1xday[,-1],1,function(x)paste(x,collapse = "")) any(table(results) > 1) ## Which numbers? i <- which(table(results) > 1,useNames = FALSE) sort(table(results)[i],decreasing = TRUE)
Historical data for the Pick 4 twice daily game. Game play: Pick a four digit number from 0000 through 9999. Note: On January 30, 1995, Pick 4 switched to twice daily drawings.
pick.4.2xdaypick.4.2xday
A data frame with 13,788 rows and 6 variables:
date of draw
time of drawing: day or night
1st digit
2nd digit
3rd digit
4th digit
Historical data for the Power Ball game. Game play: Pick five different numbers from 1 through 59; then select one Powerball number from 1 through 35.
power.ballpower.ball
A data frame with 582 rows and 7 variables:
date of draw
powerball result
1st number in order
2nd number in order
3rd number in order
4th number in order
5th number in order
## According to game rules, the powerball is numbered 1 - 35, ## but apparently there were times when it went up to 39 i <- power.ball$powerball > 35 any(i) sum(i) power.ball$powerball[i]## According to game rules, the powerball is numbered 1 - 35, ## but apparently there were times when it went up to 39 i <- power.ball$powerball > 35 any(i) sum(i) power.ball$powerball[i]