# NOT RUN {
data(EfronMorris)
attach(EfronMorris)
plot(p~y,
xlim=range(p,y),
ylim=range(p,y),
xlab="Batting Average, 1st 45 at bats",
ylab="Batting Average, Remainder of Season")
abline(0,1)
# }
Run the code above in your browser using DataLab