From ca392df78014238620827e204e6906838c918a09 Mon Sep 17 00:00:00 2001 From: Chris Bol Date: Tue, 24 Jun 2014 09:52:03 +0200 Subject: [PATCH] Update Chap3.graphics.R Lively Ball and Dead Ball era were switched --- scripts/Chap3.graphics.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/Chap3.graphics.R b/scripts/Chap3.graphics.R index 71575d8..95d57ca 100644 --- a/scripts/Chap3.graphics.R +++ b/scripts/Chap3.graphics.R @@ -16,7 +16,7 @@ hof$MidCareer <- with(hof, (From + To) / 2) hof$Era <- cut(hof$MidCareer, breaks = c(1800, 1900, 1919, 1941, 1960, 1976, 1993, 2050), - labels = c("19th Century", "Lively Ball", "Dead Ball", + labels = c("19th Century", "Dead Ball", "Lively Ball", "Integration", "Expansion", "Free Agency", "Long Ball")) @@ -186,4 +186,4 @@ text(10440, 65, "62") legend(10440, 20, legend=c("McGwire (70)", "Sosa (66)"), lwd=2, col=c("black", "grey")) -######################################################### \ No newline at end of file +#########################################################