Overview & Background In 2012 and 2013, 10 teams made the Major
League Baseball (MLB) playoffs: the six division winners and four wild
card teams. To evaluate whether regular season success predicts
postseason performance, we assign ordinal ranks to teams based on their
playoff finishes:
Rank 1: World Series Winner (Champion)
Rank 2: World Series Runner-Up
Rank 3: League Championship Series Losers (2 teams)
Rank 4: Division Series Losers (4 teams)
Rank 5: Wild Card Game Losers (2 teams)
R Code Implementation Chunk 1: Vector Definitions We first construct
the rank vector and win vectors for both seasons ordered by playoff
finish:
Exercise 1: Correlation for 2012 Season
# Define team ranks vector (1 = Champions, 5 = Early Elimination)
teamRank <- c(1, 2, 3, 3, 4, 4, 4, 4, 5, 5)
# 2012 Regular Season Wins (ordered by teamRank)
# Rank 1: SF (94) | Rank 2: DET (88)
# Rank 3: NYY (95), STL (88)
# Rank 4: BAL (93), OAK (94), WSH (98), CIN (97)
# Rank 5: TEX (93), ATL (94)
wins2012 <- c(94, 88, 95, 88, 93, 94, 98, 97, 93, 94)
# Exercise 1: Correlation for 2012 Season
cor_2012 <- cor(teamRank, wins2012)
cor_2012
[1] 0.3477129
Exercise 2: Correlation for 2013 Season
# Define team ranks vector (1 = Champions, 5 = Early Elimination)
teamRank = c(1,2,3,3,4,4,4,4,5,5)
# 2013 Regular Season Wins (ordered by teamRank)
# Rank 1: BOS (97) | Rank 2: STL (97)
# Rank 3: LAD (92), DET (93)
# Rank 4: TB (92), OAK (96), PIT (94), ATL (96)
# Rank 5: CLE (92), CIN (90)
wins2013 <- c(97, 97, 92, 93, 92, 96, 94, 96, 92, 90)
# Correlation for 2013 Season
cor_2013 <- cor(teamRank, wins2013)
cor_2013
[1] -0.6556945
Mathematical Methodology
The Pearson correlation coefficient \(r\) measures the linear association between
playoff rank (\(x\)) and regular season
wins (\(y\)). It is computed as:
\[
r = \frac{\sum_{i=1}^{n}(x_i - \bar{x})(y_i - \bar{y})}
{\sqrt{\sum_{i=1}^{n}(x_i - \bar{x})^2 \cdot \sum_{i=1}^{n}(y_i
- \bar{y})^2}}
\]
For both datasets:
- \(n = 10\)
- \(\bar{x} = 3.5\)
- \(\sum(x_i - \bar{x})^2 =
14.5\)
2012 Detailed Computation
- Mean wins (\(\bar{y}_{2012}\)):
\(93.4\)
- Sum of cross-products (\(SP_{xy}\)): \(13.0\)
- Sum of squared deviations (\(SS_y\)): \(96.4\)
\[
r_{2012} = \frac{13.0}{\sqrt{14.5 \times 96.4}}
= \frac{13.0}{\sqrt{1397.8}}
\approx 0.3477129
\]
2013 Detailed Computation
- Mean wins (\(\bar{y}_{2013}\)):
\(93.9\)
- Sum of cross-products (\(SP_{xy}\)): \(-18.5\)
- Sum of squared deviations (\(SS_y\)): \(54.9\)
\[
r_{2013} = \frac{-18.5}{\sqrt{14.5 \times 54.9}}
= \frac{-18.5}{\sqrt{796.05}}
\approx -0.6556945
\]
Statistical Interpretation
Direction of Ranks: Because Rank 1 represents the
best outcome and Rank 5 represents early elimination:
- A negative correlation (\(r < 0\)) indicates that higher regular
season win totals correspond with lower rank numbers (better playoff
performance). In 2013 (\(r = -0.656\)),
regular season wins predicted postseason success well.
- A positive correlation (\(r > 0\)) indicates that higher regular
season win totals correspond with higher rank numbers (worse playoff
performance). In 2012 (\(r = +0.348\)),
regular season wins were inversely related to playoff outcomes.
Postseason Volatility: The sign flip from \(+0.348\) in 2012 to \(-0.656\) in 2013 highlights how small
sample sizes (short playoff series) and inherent randomness make regular
season win totals an unreliable single predictor for playoff champion
outcomes.
LS0tCnRpdGxlOiAiUmFuayBDb3JyZWxhdGlvbnMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCk92ZXJ2aWV3ICYgQmFja2dyb3VuZApJbiAyMDEyIGFuZCAyMDEzLCAxMCB0ZWFtcyBtYWRlIHRoZSBNYWpvciBMZWFndWUgQmFzZWJhbGwgKE1MQikgcGxheW9mZnM6IHRoZSBzaXggZGl2aXNpb24gd2lubmVycyBhbmQgZm91ciB3aWxkIGNhcmQgdGVhbXMuIFRvIGV2YWx1YXRlIHdoZXRoZXIgcmVndWxhciBzZWFzb24gc3VjY2VzcyBwcmVkaWN0cyBwb3N0c2Vhc29uIHBlcmZvcm1hbmNlLCB3ZSBhc3NpZ24gb3JkaW5hbCByYW5rcyB0byB0ZWFtcyBiYXNlZCBvbiB0aGVpciBwbGF5b2ZmIGZpbmlzaGVzOgoKUmFuayAxOiBXb3JsZCBTZXJpZXMgV2lubmVyIChDaGFtcGlvbikKClJhbmsgMjogV29ybGQgU2VyaWVzIFJ1bm5lci1VcAoKUmFuayAzOiBMZWFndWUgQ2hhbXBpb25zaGlwIFNlcmllcyBMb3NlcnMgKDIgdGVhbXMpCgpSYW5rIDQ6IERpdmlzaW9uIFNlcmllcyBMb3NlcnMgKDQgdGVhbXMpCgpSYW5rIDU6IFdpbGQgQ2FyZCBHYW1lIExvc2VycyAoMiB0ZWFtcykKClIgQ29kZSBJbXBsZW1lbnRhdGlvbiBDaHVuayAxOiBWZWN0b3IgRGVmaW5pdGlvbnMgV2UgZmlyc3QgY29uc3RydWN0IHRoZSByYW5rIHZlY3RvciBhbmQgd2luIHZlY3RvcnMgZm9yIGJvdGggc2Vhc29ucyBvcmRlcmVkIGJ5IHBsYXlvZmYgZmluaXNoOgoKRXhlcmNpc2UgMTogQ29ycmVsYXRpb24gZm9yIDIwMTIgU2Vhc29uCmBgYHtyfQojIERlZmluZSB0ZWFtIHJhbmtzIHZlY3RvciAoMSA9IENoYW1waW9ucywgNSA9IEVhcmx5IEVsaW1pbmF0aW9uKQp0ZWFtUmFuayA8LSBjKDEsIDIsIDMsIDMsIDQsIDQsIDQsIDQsIDUsIDUpCgojIDIwMTIgUmVndWxhciBTZWFzb24gV2lucyAob3JkZXJlZCBieSB0ZWFtUmFuaykKIyBSYW5rIDE6IFNGICg5NCkgfCBSYW5rIDI6IERFVCAoODgpCiMgUmFuayAzOiBOWVkgKDk1KSwgU1RMICg4OCkKIyBSYW5rIDQ6IEJBTCAoOTMpLCBPQUsgKDk0KSwgV1NIICg5OCksIENJTiAoOTcpCiMgUmFuayA1OiBURVggKDkzKSwgQVRMICg5NCkKd2luczIwMTIgPC0gYyg5NCwgODgsIDk1LCA4OCwgOTMsIDk0LCA5OCwgOTcsIDkzLCA5NCkKCgojIEV4ZXJjaXNlIDE6IENvcnJlbGF0aW9uIGZvciAyMDEyIFNlYXNvbgpjb3JfMjAxMiA8LSBjb3IodGVhbVJhbmssIHdpbnMyMDEyKQpjb3JfMjAxMgoKYGBgCgpFeGVyY2lzZSAyOiBDb3JyZWxhdGlvbiBmb3IgMjAxMyBTZWFzb24KYGBge3J9CiMgRGVmaW5lIHRlYW0gcmFua3MgdmVjdG9yICgxID0gQ2hhbXBpb25zLCA1ID0gRWFybHkgRWxpbWluYXRpb24pCnRlYW1SYW5rID0gYygxLDIsMywzLDQsNCw0LDQsNSw1KQoKIyAyMDEzIFJlZ3VsYXIgU2Vhc29uIFdpbnMgKG9yZGVyZWQgYnkgdGVhbVJhbmspCiMgUmFuayAxOiBCT1MgKDk3KSB8IFJhbmsgMjogU1RMICg5NykKIyBSYW5rIDM6IExBRCAoOTIpLCBERVQgKDkzKQojIFJhbmsgNDogVEIgKDkyKSwgT0FLICg5NiksIFBJVCAoOTQpLCBBVEwgKDk2KQojIFJhbmsgNTogQ0xFICg5MiksIENJTiAoOTApCndpbnMyMDEzIDwtIGMoOTcsIDk3LCA5MiwgOTMsIDkyLCA5NiwgOTQsIDk2LCA5MiwgOTApCgoKIyBDb3JyZWxhdGlvbiBmb3IgMjAxMyBTZWFzb24KY29yXzIwMTMgPC0gY29yKHRlYW1SYW5rLCB3aW5zMjAxMykKY29yXzIwMTMKYGBgCgoKIyMgTWF0aGVtYXRpY2FsIE1ldGhvZG9sb2d5CgpUaGUgUGVhcnNvbiBjb3JyZWxhdGlvbiBjb2VmZmljaWVudCAkciQgbWVhc3VyZXMgdGhlIGxpbmVhciBhc3NvY2lhdGlvbiBiZXR3ZWVuIHBsYXlvZmYgcmFuayAoJHgkKSBhbmQgcmVndWxhciBzZWFzb24gd2lucyAoJHkkKS4gSXQgaXMgY29tcHV0ZWQgYXM6CgokJApyID0gXGZyYWN7XHN1bV97aT0xfV57bn0oeF9pIC0gXGJhcnt4fSkoeV9pIC0gXGJhcnt5fSl9CiAgICAgICAgIHtcc3FydHtcc3VtX3tpPTF9XntufSh4X2kgLSBcYmFye3h9KV4yIFxjZG90IFxzdW1fe2k9MX1ee259KHlfaSAtIFxiYXJ7eX0pXjJ9fQokJAoKRm9yIGJvdGggZGF0YXNldHM6CgotICRuID0gMTAkCi0gJFxiYXJ7eH0gPSAzLjUkCi0gJFxzdW0oeF9pIC0gXGJhcnt4fSleMiA9IDE0LjUkCgotLS0KCiMjIyAyMDEyIERldGFpbGVkIENvbXB1dGF0aW9uCgotIE1lYW4gd2lucyAoJFxiYXJ7eX1fezIwMTJ9JCk6ICQ5My40JAotIFN1bSBvZiBjcm9zcy1wcm9kdWN0cyAoJFNQX3t4eX0kKTogJDEzLjAkCi0gU3VtIG9mIHNxdWFyZWQgZGV2aWF0aW9ucyAoJFNTX3kkKTogJDk2LjQkCgokJApyX3syMDEyfSA9IFxmcmFjezEzLjB9e1xzcXJ0ezE0LjUgXHRpbWVzIDk2LjR9fSAKICAgICAgICAgPSBcZnJhY3sxMy4wfXtcc3FydHsxMzk3Ljh9fSAKICAgICAgICAgXGFwcHJveCAwLjM0NzcxMjkKJCQKCi0tLQoKIyMjIDIwMTMgRGV0YWlsZWQgQ29tcHV0YXRpb24KCi0gTWVhbiB3aW5zICgkXGJhcnt5fV97MjAxM30kKTogJDkzLjkkCi0gU3VtIG9mIGNyb3NzLXByb2R1Y3RzICgkU1Bfe3h5fSQpOiAkLTE4LjUkCi0gU3VtIG9mIHNxdWFyZWQgZGV2aWF0aW9ucyAoJFNTX3kkKTogJDU0LjkkCgokJApyX3syMDEzfSA9IFxmcmFjey0xOC41fXtcc3FydHsxNC41IFx0aW1lcyA1NC45fX0gCiAgICAgICAgID0gXGZyYWN7LTE4LjV9e1xzcXJ0ezc5Ni4wNX19IAogICAgICAgICBcYXBwcm94IC0wLjY1NTY5NDUKJCQKCi0tLQoKIyMgU3RhdGlzdGljYWwgSW50ZXJwcmV0YXRpb24KCioqRGlyZWN0aW9uIG9mIFJhbmtzOioqIEJlY2F1c2UgUmFuayAxIHJlcHJlc2VudHMgdGhlIGJlc3Qgb3V0Y29tZSBhbmQgUmFuayA1IHJlcHJlc2VudHMgZWFybHkgZWxpbWluYXRpb246CgotIEEgKipuZWdhdGl2ZSBjb3JyZWxhdGlvbioqICgkciA8IDAkKSBpbmRpY2F0ZXMgdGhhdCBoaWdoZXIgcmVndWxhciBzZWFzb24gd2luIHRvdGFscyBjb3JyZXNwb25kIHdpdGggbG93ZXIgcmFuayBudW1iZXJzIChiZXR0ZXIgcGxheW9mZiBwZXJmb3JtYW5jZSkuIEluIDIwMTMgKCRyID0gLTAuNjU2JCksIHJlZ3VsYXIgc2Vhc29uIHdpbnMgcHJlZGljdGVkIHBvc3RzZWFzb24gc3VjY2VzcyB3ZWxsLgotIEEgKipwb3NpdGl2ZSBjb3JyZWxhdGlvbioqICgkciA+IDAkKSBpbmRpY2F0ZXMgdGhhdCBoaWdoZXIgcmVndWxhciBzZWFzb24gd2luIHRvdGFscyBjb3JyZXNwb25kIHdpdGggaGlnaGVyIHJhbmsgbnVtYmVycyAod29yc2UgcGxheW9mZiBwZXJmb3JtYW5jZSkuIEluIDIwMTIgKCRyID0gKzAuMzQ4JCksIHJlZ3VsYXIgc2Vhc29uIHdpbnMgd2VyZSBpbnZlcnNlbHkgcmVsYXRlZCB0byBwbGF5b2ZmIG91dGNvbWVzLgoKKipQb3N0c2Vhc29uIFZvbGF0aWxpdHk6KiogVGhlIHNpZ24gZmxpcCBmcm9tICQrMC4zNDgkIGluIDIwMTIgdG8gJC0wLjY1NiQgaW4gMjAxMyBoaWdobGlnaHRzIGhvdyBzbWFsbCBzYW1wbGUgc2l6ZXMgKHNob3J0IHBsYXlvZmYgc2VyaWVzKSBhbmQgaW5oZXJlbnQgcmFuZG9tbmVzcyBtYWtlIHJlZ3VsYXIgc2Vhc29uIHdpbiB0b3RhbHMgYW4gdW5yZWxpYWJsZSBzaW5nbGUgcHJlZGljdG9yIGZvciBwbGF5b2ZmIGNoYW1waW9uIG91dGNvbWVzLg==