New Jersey Pick-It Lottery from Becker, Chambers and Wilks
lottery.number # print the winning numbers
lottery.payoff # print the payoffs
hist ( lottery.number )
# Let's make it look a little neater
hist ( lottery.number, breaks=(1:12)*100 - 150 )
hist ( lottery.payoff )
mean(lottery.payoff)
# Calculate the SD of lottery payoffs
x.bar _ mean ( lottery.payoff )
sqrt ( mean ( (lottery.payoff-x.bar)^2 ) )
max ( lottery.payoff )
lottery.number [ lottery.payoff==max(lottery.payoff) ]
min ( lottery.payoff )
lottery.number [ lottery.payoff==min(lottery.payoff) ]
plot ( lottery.number, lottery.payoff )
identify ( lottery.number, lottery.payoff, lottery.number )
boxplot ( lottery.payoff, lottery2.payoff, lottery3.payoff )
boxplot ( lottery.payoff, lottery2.payoff, lottery3.payoff,
names=c("1st year", "2nd year", "6th year"),
style.bxp="old" )
Return to course homepage
Last updated Sept. 7, 1999 by Michael Lavine