In-class activity 10- Rank Correlations 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:

# Define team ranks vector (1 = Champion, 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)

# 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)

Chunk 2: Exercises & Correlation Analysis We calculate Pearson’s correlation coefficient r for both seasons using R’s cor() function:

# Exercise 1: Correlation for 2012 Season
cor_2012 <- cor(teamRank, wins2012)
cor_2012
[1] 0.3477129
# Exercise 2: Correlation for 2013 Season
cor_2013 <- cor(teamRank, wins2013)
cor_2013
[1] -0.6556945

Mathematical MethodologyThe Pearson correlation coefficient r measuring the linear association between playoff rank (x) and regular season wins (y) is computed as:

r=∑ni=1(xi−x¯)(yi−y¯) ∑ni=1(xi−x¯)2⋅∑ni=1(yi−y¯)2

For both datasets, n=10, x¯=3.5, and ∑(xi−x¯)2=14.5.2012 Detailed ComputationMean wins (y¯2012): 93.4 Sum of cross-products (SPxy): 13.0 Sum of squared deviations (SSy): 96.4

r2012=13.014.5×96.4−−−−−−−−−√=13.01397.8−−−−−√≈0.3477129

2013 Detailed Computation Mean wins (y¯2013): 93.9 Sum of cross-products (SPxy): −18.5 Sum of squared deviations (SSy): 54.9

r2013=−18.514.5×54.9−−−−−−−−−√=−18.5796.05−−−−−√≈−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.

LS0tCnRpdGxlOiAiQWN0aXZpdHkgMTAiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KSW4tY2xhc3MgYWN0aXZpdHkgMTAtIFJhbmsgQ29ycmVsYXRpb25zCk92ZXJ2aWV3ICYgQmFja2dyb3VuZCBJbiAyMDEyIGFuZCAyMDEzLCAxMCB0ZWFtcyBtYWRlIHRoZSBNYWpvciBMZWFndWUgQmFzZWJhbGwgKE1MQikgcGxheW9mZnM6IHRoZSBzaXggZGl2aXNpb24gd2lubmVycyBhbmQgZm91ciB3aWxkIGNhcmQgdGVhbXMuIFRvIGV2YWx1YXRlIHdoZXRoZXIgcmVndWxhciBzZWFzb24gc3VjY2VzcyBwcmVkaWN0cyBwb3N0c2Vhc29uIHBlcmZvcm1hbmNlLCB3ZSBhc3NpZ24gb3JkaW5hbCByYW5rcyB0byB0ZWFtcyBiYXNlZCBvbiB0aGVpciBwbGF5b2ZmIGZpbmlzaGVzOgoKUmFuayAxOiBXb3JsZCBTZXJpZXMgV2lubmVyIChDaGFtcGlvbikKClJhbmsgMjogV29ybGQgU2VyaWVzIFJ1bm5lci1VcAoKUmFuayAzOiBMZWFndWUgQ2hhbXBpb25zaGlwIFNlcmllcyBMb3NlcnMgKDIgdGVhbXMpCgpSYW5rIDQ6IERpdmlzaW9uIFNlcmllcyBMb3NlcnMgKDQgdGVhbXMpCgpSYW5rIDU6IFdpbGQgQ2FyZCBHYW1lIExvc2VycyAoMiB0ZWFtcykKClIgQ29kZSBJbXBsZW1lbnRhdGlvbiBDaHVuayAxOiBWZWN0b3IgRGVmaW5pdGlvbnMgV2UgZmlyc3QgY29uc3RydWN0IHRoZSByYW5rIHZlY3RvciBhbmQgd2luIHZlY3RvcnMgZm9yIGJvdGggc2Vhc29ucyBvcmRlcmVkIGJ5IHBsYXlvZmYgZmluaXNoOgoKYGBge3J9CiMgRGVmaW5lIHRlYW0gcmFua3MgdmVjdG9yICgxID0gQ2hhbXBpb24sIDUgPSBFYXJseSBFbGltaW5hdGlvbikKdGVhbVJhbmsgPC0gYygxLCAyLCAzLCAzLCA0LCA0LCA0LCA0LCA1LCA1KQoKIyAyMDEyIFJlZ3VsYXIgU2Vhc29uIFdpbnMgKG9yZGVyZWQgYnkgdGVhbVJhbmspCiMgUmFuayAxOiBTRiAoOTQpIHwgUmFuayAyOiBERVQgKDg4KQojIFJhbmsgMzogTllZICg5NSksIFNUTCAoODgpCiMgUmFuayA0OiBCQUwgKDkzKSwgT0FLICg5NCksIFdTSCAoOTgpLCBDSU4gKDk3KQojIFJhbmsgNTogVEVYICg5MyksIEFUTCAoOTQpCndpbnMyMDEyIDwtIGMoOTQsIDg4LCA5NSwgODgsIDkzLCA5NCwgOTgsIDk3LCA5MywgOTQpCgojIDIwMTMgUmVndWxhciBTZWFzb24gV2lucyAob3JkZXJlZCBieSB0ZWFtUmFuaykKIyBSYW5rIDE6IEJPUyAoOTcpIHwgUmFuayAyOiBTVEwgKDk3KQojIFJhbmsgMzogTEFEICg5MiksIERFVCAoOTMpCiMgUmFuayA0OiBUQiAoOTIpLCBPQUsgKDk2KSwgUElUICg5NCksIEFUTCAoOTYpCiMgUmFuayA1OiBDTEUgKDkyKSwgQ0lOICg5MCkKd2luczIwMTMgPC0gYyg5NywgOTcsIDkyLCA5MywgOTIsIDk2LCA5NCwgOTYsIDkyLCA5MCkKYGBgCgpDaHVuayAyOiBFeGVyY2lzZXMgJiBDb3JyZWxhdGlvbiBBbmFseXNpcyBXZSBjYWxjdWxhdGUgUGVhcnNvbuKAmXMgY29ycmVsYXRpb24gY29lZmZpY2llbnQgcgogZm9yIGJvdGggc2Vhc29ucyB1c2luZyBS4oCZcyBjb3IoKSBmdW5jdGlvbjoKCmBgYHtyfQojIEV4ZXJjaXNlIDE6IENvcnJlbGF0aW9uIGZvciAyMDEyIFNlYXNvbgpjb3JfMjAxMiA8LSBjb3IodGVhbVJhbmssIHdpbnMyMDEyKQpjb3JfMjAxMgpgYGAKCmBgYHtyfQojIEV4ZXJjaXNlIDI6IENvcnJlbGF0aW9uIGZvciAyMDEzIFNlYXNvbgpjb3JfMjAxMyA8LSBjb3IodGVhbVJhbmssIHdpbnMyMDEzKQpjb3JfMjAxMwpgYGAKCk1hdGhlbWF0aWNhbCBNZXRob2RvbG9neVRoZSBQZWFyc29uIGNvcnJlbGF0aW9uIGNvZWZmaWNpZW50IHIKIG1lYXN1cmluZyB0aGUgbGluZWFyIGFzc29jaWF0aW9uIGJldHdlZW4gcGxheW9mZiByYW5rICh4KSBhbmQgcmVndWxhciBzZWFzb24gd2lucyAoeSkgaXMgY29tcHV0ZWQgYXM6CgpyPeKIkW5pPTEoeGniiJJ4wq8pKHlp4oiSecKvKQogIOKIkW5pPTEoeGniiJJ4wq8pMuKLheKIkW5pPTEoeWniiJJ5wq8pMgoKRm9yIGJvdGggZGF0YXNldHMsIG49MTAsIHjCrz0zLjUsIGFuZCDiiJEoeGniiJJ4wq8pMj0xNC41LjIwMTIgRGV0YWlsZWQgQ29tcHV0YXRpb25NZWFuIHdpbnMgKHnCrzIwMTIpOiA5My40IFN1bSBvZiBjcm9zcy1wcm9kdWN0cyAoU1B4eSk6IDEzLjAKU3VtIG9mIHNxdWFyZWQgZGV2aWF0aW9ucyAoU1N5KTogOTYuNAoKcjIwMTI9MTMuMDE0LjXDlzk2LjTiiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJo9MTMuMDEzOTcuOOKIkuKIkuKIkuKIkuKIkuKImuKJiDAuMzQ3NzEyOQoKMjAxMyBEZXRhaWxlZCBDb21wdXRhdGlvbiBNZWFuIHdpbnMgKHnCrzIwMTMpOiA5My45IFN1bSBvZiBjcm9zcy1wcm9kdWN0cyAoU1B4eSk6IOKIkjE4LjUgU3VtIG9mIHNxdWFyZWQgZGV2aWF0aW9ucyAoU1N5KTogNTQuOQoKcjIwMTM94oiSMTguNTE0LjXDlzU0LjniiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJLiiJo94oiSMTguNTc5Ni4wNeKIkuKIkuKIkuKIkuKIkuKImuKJiOKIkjAuNjU1Njk0NQoKU3RhdGlzdGljYWwgSW50ZXJwcmV0YXRpb24gRGlyZWN0aW9uIG9mIFJhbmtzOkJlY2F1c2UgUmFuayAxIHJlcHJlc2VudHMgdGhlIGJlc3Qgb3V0Y29tZSBhbmQgUmFuayA1IHJlcHJlc2VudHMgZWFybHkgZWxpbWluYXRpb246QSBuZWdhdGl2ZSBjb3JyZWxhdGlvbiAocjwwCikgaW5kaWNhdGVzIHRoYXQgaGlnaGVyIHJlZ3VsYXIgc2Vhc29uIHdpbiB0b3RhbHMgY29ycmVzcG9uZCB3aXRoIGxvd2VyIHJhbmsgbnVtYmVycyAoYmV0dGVyIHBsYXlvZmYgcGVyZm9ybWFuY2UpLiBJbiAyMDEzIChyPeKIkjAuNjU2KSwgcmVndWxhciBzZWFzb24gd2lucyBwcmVkaWN0ZWQgcG9zdHNlYXNvbiBzdWNjZXNzIHdlbGwuQSBwb3NpdGl2ZSBjb3JyZWxhdGlvbiAocj4wKSBpbmRpY2F0ZXMgdGhhdCBoaWdoZXIgcmVndWxhciBzZWFzb24gd2luIHRvdGFscyBjb3JyZXNwb25kIHdpdGggaGlnaGVyIHJhbmsgbnVtYmVycyAod29yc2UgcGxheW9mZiBwZXJmb3JtYW5jZSkuIEluIDIwMTIgKHI9KzAuMzQ4KSwgcmVndWxhciBzZWFzb24gd2lucyB3ZXJlIGludmVyc2VseSByZWxhdGVkIHRvIHBsYXlvZmYgb3V0Y29tZXMuUG9zdHNlYXNvbiBWb2xhdGlsaXR5OlRoZSBzaWduIGZsaXAgZnJvbSArMC4zNDggaW4gMjAxMiB0byDiiJIwLjY1NiBpbiAyMDEzIGhpZ2hsaWdodHMgaG93IHNtYWxsIHNhbXBsZSBzaXplcyAoc2hvcnQgcGxheW9mZiBzZXJpZXMpIGFuZCBpbmhlcmVudCByYW5kb21uZXNzIG1ha2UgcmVndWxhciBzZWFzb24gd2luIHRvdGFscyBhbiB1bnJlbGlhYmxlIHNpbmdsZSBwcmVkaWN0b3IgZm9yIHBsYXlvZmYgY2hhbXBpb24gb3V0Y29tZXMuCg==