powered by
Batting averages for 18 major league baseball players, first 45 at bats of the 1970 season.
data(EfronMorris)
name
character, name of player
team
character, team of player, abbreviated
league
character, National League or American League
r
numeric, hits in 1st 45 at bats
y
numeric, r/45, batting average over 1st 45 at bats
n
numeric, number of at bats, remainder of 1970 season
p
numeric, batting average over remainder of 1970 season
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