In 2012 and 2013, there were 10 teams in the MLB playoffs: the six
teams that had the most wins in each baseball division, and four “wild
card” teams. The playoffs start between the four wild card teams - the
two teams that win proceed in the playoffs (8 teams remaining). Then,
these teams are paired off and play a series of games. The four teams
that win are then paired and play to determine who will play in the
World Series.
In this quick question, we’ll see how well these rankings correlate
with the regular season wins of the teams. In 2012, the ranking of the
teams and their regular season wins were as follows:
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:
#What is the correlation between teamRank and wins2012?
#Rank 1: the team that won the World Series
#Rank 2: the team that lost the World Series
#Rank 3: the two teams that lost to the teams in the World Series
#Rank 4: the four teams that made it past the wild card round, but lost to the above four teams
#Rank 5: the two teams that lost the wild card round
teamRank = c(1,2,3,3,4,4,4,4,5,5)
wins2012 = c(94,88,95,88,93,94,98,97,93,94)
cor(teamRank, wins2012)
[1] 0.3477129
The output of the last line is 0.3477129, which is the correlation
between teamRank and wins2012.
#What is the correlation between teamRank and wins2013?
#Rank 1: San Francisco Giants (Wins = 94)
#Rank 2: Detroit Tigers (Wins = 88)
#Rank 3: New York Yankees (Wins = 95), and St. Louis Cardinals (Wins = 88)
#Rank 4: Baltimore Orioles (Wins = 93), Oakland A’s (Wins = 94), Washington Nationals (Wins = 98), Cincinnati Reds (Wins = 97)
#Rank 5: Texas Rangers (Wins = 93), and Atlanta Braves (Wins = 94)
teamRank = c(1,2,3,3,4,4,4,4,5,5)
wins2013 = c(97,97,92,93,92,96,94,96,92,90)
cor(teamRank, wins2013)
[1] -0.6556945
The output of the last line is -0.6556945, which is the correlation
between teamRank and wins2013.
Since one of the correlations is positive and the other is negative,
this means that there does not seem to be a pattern between regular
season wins and winning the playoffs. We wouldn’t feel comfortable
making a bet for this year given this data!
LS0tCnRpdGxlOiAiSW4tY2xhc3MgYWN0aXZpdHkgIzEwOiBDb3JyZWxhdGlvbiBiZXR3ZWVuIHRlYW1zIHJhbmsgYW5kIHdpbnMKIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpJbiAyMDEyIGFuZCAyMDEzLCB0aGVyZSB3ZXJlIDEwIHRlYW1zIGluIHRoZSBNTEIgcGxheW9mZnM6IHRoZSBzaXggdGVhbXMgdGhhdCBoYWQgdGhlIG1vc3Qgd2lucyBpbiBlYWNoIGJhc2ViYWxsIGRpdmlzaW9uLCBhbmQgZm91ciDigJx3aWxkIGNhcmTigJ0gdGVhbXMuIFRoZSBwbGF5b2ZmcyBzdGFydCBiZXR3ZWVuIHRoZSBmb3VyIHdpbGQgY2FyZCB0ZWFtcyAtIHRoZSB0d28gdGVhbXMgdGhhdCB3aW4gcHJvY2VlZCBpbiB0aGUgcGxheW9mZnMgKDggdGVhbXMgcmVtYWluaW5nKS4gVGhlbiwgdGhlc2UgdGVhbXMgYXJlIHBhaXJlZCBvZmYgYW5kIHBsYXkgYSBzZXJpZXMgb2YgZ2FtZXMuIFRoZSBmb3VyIHRlYW1zIHRoYXQgd2luIGFyZSB0aGVuIHBhaXJlZCBhbmQgcGxheSB0byBkZXRlcm1pbmUgd2hvIHdpbGwgcGxheSBpbiB0aGUgV29ybGQgU2VyaWVzLiAKCkluIHRoaXMgcXVpY2sgcXVlc3Rpb24sIHdl4oCZbGwgc2VlIGhvdyB3ZWxsIHRoZXNlIHJhbmtpbmdzIGNvcnJlbGF0ZSB3aXRoIHRoZSByZWd1bGFyIHNlYXNvbiB3aW5zIG9mIHRoZSB0ZWFtcy4gSW4gMjAxMiwgdGhlIHJhbmtpbmcgb2YgdGhlIHRlYW1zIGFuZCB0aGVpciByZWd1bGFyIHNlYXNvbiB3aW5zIHdlcmUgYXMgZm9sbG93czoKClJhbmsgMTogV29ybGQgU2VyaWVzIFdpbm5lciAoQ2hhbXBpb24pCgpSYW5rIDI6IFdvcmxkIFNlcmllcyBSdW5uZXItVXAKClJhbmsgMzogTGVhZ3VlIENoYW1waW9uc2hpcCBTZXJpZXMgTG9zZXJzICgyIHRlYW1zKQoKUmFuayA0OiBEaXZpc2lvbiBTZXJpZXMgTG9zZXJzICg0IHRlYW1zKQoKUmFuayA1OiBXaWxkIENhcmQgR2FtZSBMb3NlcnMgKDIgdGVhbXMpCgpSIENvZGUgSW1wbGVtZW50YXRpb24gQ2h1bmsgMTogVmVjdG9yIERlZmluaXRpb25zIFdlIGZpcnN0IGNvbnN0cnVjdCB0aGUgcmFuayB2ZWN0b3IgYW5kIHdpbiB2ZWN0b3JzIGZvciBib3RoIHNlYXNvbnMgb3JkZXJlZCBieSBwbGF5b2ZmIGZpbmlzaDoKCmBgYHtyfQojV2hhdCBpcyB0aGUgY29ycmVsYXRpb24gYmV0d2VlbiB0ZWFtUmFuayBhbmQgd2luczIwMTI/CgojUmFuayAxOiB0aGUgdGVhbSB0aGF0IHdvbiB0aGUgV29ybGQgU2VyaWVzCiNSYW5rIDI6IHRoZSB0ZWFtIHRoYXQgbG9zdCB0aGUgV29ybGQgU2VyaWVzCiNSYW5rIDM6IHRoZSB0d28gdGVhbXMgdGhhdCBsb3N0IHRvIHRoZSB0ZWFtcyBpbiB0aGUgV29ybGQgU2VyaWVzCiNSYW5rIDQ6IHRoZSBmb3VyIHRlYW1zIHRoYXQgbWFkZSBpdCBwYXN0IHRoZSB3aWxkIGNhcmQgcm91bmQsIGJ1dCBsb3N0IHRvIHRoZSBhYm92ZSBmb3VyIHRlYW1zCiNSYW5rIDU6IHRoZSB0d28gdGVhbXMgdGhhdCBsb3N0IHRoZSB3aWxkIGNhcmQgcm91bmQKCnRlYW1SYW5rID0gYygxLDIsMywzLDQsNCw0LDQsNSw1KQp3aW5zMjAxMiA9IGMoOTQsODgsOTUsODgsOTMsOTQsOTgsOTcsOTMsOTQpCmNvcih0ZWFtUmFuaywgd2luczIwMTIpCmBgYAoKClRoZSBvdXRwdXQgb2YgdGhlIGxhc3QgbGluZSBpcyAwLjM0NzcxMjksIHdoaWNoIGlzIHRoZSBjb3JyZWxhdGlvbiBiZXR3ZWVuIHRlYW1SYW5rIGFuZCB3aW5zMjAxMi4KCmBgYHtyfQojV2hhdCBpcyB0aGUgY29ycmVsYXRpb24gYmV0d2VlbiB0ZWFtUmFuayBhbmQgd2luczIwMTM/CgojUmFuayAxOiBTYW4gRnJhbmNpc2NvIEdpYW50cyAoV2lucyA9IDk0KQojUmFuayAyOiBEZXRyb2l0IFRpZ2VycyAoV2lucyA9IDg4KQojUmFuayAzOiBOZXcgWW9yayBZYW5rZWVzIChXaW5zID0gOTUpLCBhbmQgU3QuIExvdWlzIENhcmRpbmFscyAoV2lucyA9IDg4KQojUmFuayA0OiBCYWx0aW1vcmUgT3Jpb2xlcyAoV2lucyA9IDkzKSwgT2FrbGFuZCBB4oCZcyAoV2lucyA9IDk0KSwgV2FzaGluZ3RvbiBOYXRpb25hbHMgKFdpbnMgPSA5OCksIENpbmNpbm5hdGkgUmVkcyAoV2lucyA9IDk3KQojUmFuayA1OiBUZXhhcyBSYW5nZXJzIChXaW5zID0gOTMpLCBhbmQgQXRsYW50YSBCcmF2ZXMgKFdpbnMgPSA5NCkgCgp0ZWFtUmFuayA9IGMoMSwyLDMsMyw0LDQsNCw0LDUsNSkKd2luczIwMTMgPSBjKDk3LDk3LDkyLDkzLDkyLDk2LDk0LDk2LDkyLDkwKQpjb3IodGVhbVJhbmssIHdpbnMyMDEzKQpgYGAKClRoZSBvdXRwdXQgb2YgdGhlIGxhc3QgbGluZSBpcyAtMC42NTU2OTQ1LCB3aGljaCBpcyB0aGUgY29ycmVsYXRpb24gYmV0d2VlbiB0ZWFtUmFuayBhbmQgd2luczIwMTMuCgpTaW5jZSBvbmUgb2YgdGhlIGNvcnJlbGF0aW9ucyBpcyBwb3NpdGl2ZSBhbmQgdGhlIG90aGVyIGlzIG5lZ2F0aXZlLCB0aGlzIG1lYW5zIHRoYXQgdGhlcmUgZG9lcyBub3Qgc2VlbSB0byBiZSBhIHBhdHRlcm4gYmV0d2VlbiByZWd1bGFyIHNlYXNvbiB3aW5zIGFuZCB3aW5uaW5nIHRoZSBwbGF5b2Zmcy4gV2Ugd291bGRu4oCZdCBmZWVsIGNvbWZvcnRhYmxlIG1ha2luZyBhIGJldCBmb3IgdGhpcyB5ZWFyIGdpdmVuIHRoaXMgZGF0YSEKCg==