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. We can assign rankings to the teams as follows:
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 In your R console, create a corresponding rank
vector by typing
teamRank = c(1,2,3,3,4,4,4,4,5,5)
teamRank
[1] 1 2 3 3 4 4 4 4 5 5
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: 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)
Create a vector in R called wins2012, that has the
wins of each team in 2012, in order of rank (the vector should have 10
numbers).
wins2012 = c(94, 88, 95, 88, 93, 94, 98, 97, 93, 94)
wins2012
[1] 94 88 95 88 93 94 98 97 93 94
In 2013, the ranking of the teams and their regular season wins were
as follows: Rank 1: Boston Red Sox (Wins = 97) Rank 2: St. Louis
Cardinals (Wins = 97) Rank 3: Los Angeles Dodgers (Wins = 92), and
Detroit Tigers (Wins = 93) Rank 4: Tampa Bay Rays (Wins = 92), Oakland
A’s (Wins = 96), Pittsburgh Pirates (Wins = 94), and Atlanta Braves
(Wins = 96) Rank 5: Cleveland Indians (Wins = 92), and Cincinnati Reds
(Wins = 90) Create another vector in R called wins2013,
that has the wins of each team in 2013, in order of rank (the vector
should have 10 numbers).
wins2013 = c(97, 97, 92, 93, 92, 96, 94, 96, 92, 90)
wins2013
[1] 97 97 92 93 92 96 94 96 92 90
What is the correlation between teamRank and
wins2012?
# Correlations
cor(teamRank, wins2012)
[1] 0.3477129
teamRank
[1] 1 2 3 3 4 4 4 4 5 5
wins2012
[1] 94 88 95 88 93 94 98 97 93 94
In MLB 2012, there is a positive correlation of 0.35 between a team’s
ranking and the number of games they win. This means that as the number
of wins goes up, the team’s ranking generally improves, but not by a
large amount.
What is the correlation between teamRank and
wins2013?
# Correlations
cor(teamRank, wins2013)
[1] -0.6556945
teamRank
[1] 1 2 3 3 4 4 4 4 5 5
wins2012
[1] 94 88 95 88 93 94 98 97 93 94
there is a negative correlation of -0.66 between a team’s ranking and
the number of games they win. This means that as the number of wins
decreases, the team’s ranking worsens. Conversely, as the number of wins
increases, the team’s ranking improves
In the end, winning the World Series depends on things like team
chemistry, player health, handling pressure, and sometimes luck. While
Moneyball helps teams succeed and reach the playoffs, predicting the
World Series winner involves more than just stats—it’s about many other
factors too.
LS0tDQp0aXRsZTogIkluLWNsYXNzIGFjdGl2aXR5ICMxMChIVyk6Q29ycmVsYXRpb24gYmV0d2VlbiBUZWFtcyBSYW5rIGFuZCBXaW5zIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KSW4gMjAxMiBhbmQgMjAxMywgdGhlcmUgd2VyZSAxMCB0ZWFtcyBpbiB0aGUgTUxCIHBsYXlvZmZzOiB0aGUgc2l4IHRlYW1zIHRoYXQgaGFkIHRoZSBtb3N0IHdpbnMgaW4gZWFjaCBiYXNlYmFsbCBkaXZpc2lvbiwgYW5kIGZvdXIg4oCcd2lsZCBjYXJk4oCdIHRlYW1zLiBUaGUgcGxheW9mZnMgc3RhcnQgYmV0d2VlbiB0aGUgZm91ciB3aWxkIGNhcmQgdGVhbXMgLSB0aGUgdHdvIHRlYW1zIHRoYXQgd2luIHByb2NlZWQgaW4gdGhlIHBsYXlvZmZzICg4IHRlYW1zIHJlbWFpbmluZykuIFRoZW4sIHRoZXNlIHRlYW1zIGFyZSBwYWlyZWQgb2ZmIGFuZCBwbGF5IGEgc2VyaWVzIG9mIGdhbWVzLiBUaGUgZm91ciB0ZWFtcyB0aGF0IHdpbiBhcmUgdGhlbiBwYWlyZWQgYW5kIHBsYXkgdG8gZGV0ZXJtaW5lIHdobyB3aWxsIHBsYXkgaW4gdGhlIFdvcmxkIFNlcmllcy4gDQpXZSBjYW4gYXNzaWduIHJhbmtpbmdzIHRvIHRoZSB0ZWFtcyBhcyBmb2xsb3dzOg0KIA0KUmFuayAxOiB0aGUgdGVhbSB0aGF0IHdvbiB0aGUgV29ybGQgU2VyaWVzDQpSYW5rIDI6IHRoZSB0ZWFtIHRoYXQgbG9zdCB0aGUgV29ybGQgU2VyaWVzDQpSYW5rIDM6IHRoZSB0d28gdGVhbXMgdGhhdCBsb3N0IHRvIHRoZSB0ZWFtcyBpbiB0aGUgV29ybGQgU2VyaWVzDQpSYW5rIDQ6IHRoZSBmb3VyIHRlYW1zIHRoYXQgbWFkZSBpdCBwYXN0IHRoZSB3aWxkIGNhcmQgcm91bmQsIGJ1dCBsb3N0IHRvIHRoZSBhYm92ZSBmb3VyIHRlYW1zDQpSYW5rIDU6IHRoZSB0d28gdGVhbXMgdGhhdCBsb3N0IHRoZSB3aWxkIGNhcmQgcm91bmQNCkluIHlvdXIgUiBjb25zb2xlLCBjcmVhdGUgYSBjb3JyZXNwb25kaW5nIHJhbmsgdmVjdG9yIGJ5IHR5cGluZw0KDQpgYGB7cn0NCnRlYW1SYW5rID0gYygxLDIsMywzLDQsNCw0LDQsNSw1KQ0KDQp0ZWFtUmFuaw0KYGBgDQpJbiB0aGlzIHF1aWNrIHF1ZXN0aW9uLCB3ZeKAmWxsIHNlZSBob3cgd2VsbCB0aGVzZSByYW5raW5ncyBjb3JyZWxhdGUgd2l0aCB0aGUgcmVndWxhciBzZWFzb24gd2lucyBvZiB0aGUgdGVhbXMuIEluIDIwMTIsIHRoZSByYW5raW5nIG9mIHRoZSB0ZWFtcyBhbmQgdGhlaXIgcmVndWxhciBzZWFzb24gd2lucyB3ZXJlIGFzIGZvbGxvd3M6DQpSYW5rIDE6IFNhbiBGcmFuY2lzY28gR2lhbnRzIChXaW5zID0gOTQpDQpSYW5rIDI6IERldHJvaXQgVGlnZXJzIChXaW5zID0gODgpDQpSYW5rIDM6IE5ldyBZb3JrIFlhbmtlZXMgKFdpbnMgPSA5NSksIGFuZCBTdC4gTG91aXMgQ2FyZGluYWxzIChXaW5zID0gODgpDQpSYW5rIDQ6IEJhbHRpbW9yZSBPcmlvbGVzIChXaW5zID0gOTMpLCBPYWtsYW5kIEHigJlzIChXaW5zID0gOTQpLCBXYXNoaW5ndG9uIE5hdGlvbmFscyAoV2lucyA9IDk4KSwgQ2luY2lubmF0aSBSZWRzIChXaW5zID0gOTcpDQpSYW5rIDU6IFRleGFzIFJhbmdlcnMgKFdpbnMgPSA5MyksIGFuZCBBdGxhbnRhIEJyYXZlcyAoV2lucyA9IDk0KSANCg0KX19DcmVhdGUgYSB2ZWN0b3IgaW4gUiBjYWxsZWQgd2luczIwMTJfXywgdGhhdCBoYXMgdGhlIHdpbnMgb2YgZWFjaCB0ZWFtIGluIDIwMTIsIGluIG9yZGVyIG9mIHJhbmsgKHRoZSB2ZWN0b3Igc2hvdWxkIGhhdmUgMTAgbnVtYmVycykuDQoNCmBgYHtyfQ0Kd2luczIwMTIgPSBjKDk0LCA4OCwgOTUsIDg4LCA5MywgOTQsIDk4LCA5NywgOTMsIDk0KQ0Kd2luczIwMTINCmBgYA0KSW4gMjAxMywgdGhlIHJhbmtpbmcgb2YgdGhlIHRlYW1zIGFuZCB0aGVpciByZWd1bGFyIHNlYXNvbiB3aW5zIHdlcmUgYXMgZm9sbG93czoNClJhbmsgMTogQm9zdG9uIFJlZCBTb3ggKFdpbnMgPSA5NykNClJhbmsgMjogU3QuIExvdWlzIENhcmRpbmFscyAoV2lucyA9IDk3KQ0KUmFuayAzOiBMb3MgQW5nZWxlcyBEb2RnZXJzIChXaW5zID0gOTIpLCBhbmQgRGV0cm9pdCBUaWdlcnMgKFdpbnMgPSA5MykNClJhbmsgNDogVGFtcGEgQmF5IFJheXMgKFdpbnMgPSA5MiksIE9ha2xhbmQgQeKAmXMgKFdpbnMgPSA5NiksIFBpdHRzYnVyZ2ggUGlyYXRlcyAoV2lucyA9IDk0KSwgYW5kIEF0bGFudGEgQnJhdmVzIChXaW5zID0gOTYpDQpSYW5rIDU6IENsZXZlbGFuZCBJbmRpYW5zIChXaW5zID0gOTIpLCBhbmQgQ2luY2lubmF0aSBSZWRzIChXaW5zID0gOTApIA0KX19DcmVhdGUgYW5vdGhlciB2ZWN0b3IgaW4gUiBjYWxsZWQgd2luczIwMTNfXywgdGhhdCBoYXMgdGhlIHdpbnMgb2YgZWFjaCB0ZWFtIGluIDIwMTMsIGluIG9yZGVyIG9mIHJhbmsgKHRoZSB2ZWN0b3Igc2hvdWxkIGhhdmUgMTAgbnVtYmVycykuDQoNCg0KYGBge3J9DQp3aW5zMjAxMyA9IGMoOTcsIDk3LCA5MiwgOTMsIDkyLCA5NiwgOTQsIDk2LCA5MiwgOTApDQp3aW5zMjAxMw0KYGBgDQpfX1doYXQgaXMgdGhlIGNvcnJlbGF0aW9uIGJldHdlZW4gdGVhbVJhbmsgYW5kIHdpbnMyMDEyP19fDQpgYGB7cn0NCiMgQ29ycmVsYXRpb25zDQpjb3IodGVhbVJhbmssIHdpbnMyMDEyKQ0KdGVhbVJhbmsNCndpbnMyMDEyDQpgYGANCkluIE1MQiAyMDEyLCB0aGVyZSBpcyBhIHBvc2l0aXZlIGNvcnJlbGF0aW9uIG9mIDAuMzUgYmV0d2VlbiBhIHRlYW0ncyByYW5raW5nIGFuZCB0aGUgbnVtYmVyIG9mIGdhbWVzIHRoZXkgd2luLiBUaGlzIG1lYW5zIHRoYXQgYXMgdGhlIG51bWJlciBvZiB3aW5zIGdvZXMgdXAsIHRoZSB0ZWFtJ3MgcmFua2luZyBnZW5lcmFsbHkgaW1wcm92ZXMsIGJ1dCBub3QgYnkgYSBsYXJnZSBhbW91bnQuDQoNCg0KX19XaGF0IGlzIHRoZSBjb3JyZWxhdGlvbiBiZXR3ZWVuIHRlYW1SYW5rIGFuZCB3aW5zMjAxMz9fXw0KDQpgYGB7cn0NCiMgQ29ycmVsYXRpb25zDQpjb3IodGVhbVJhbmssIHdpbnMyMDEzKQ0KdGVhbVJhbmsNCndpbnMyMDEyDQpgYGANCg0KdGhlcmUgaXMgYSBuZWdhdGl2ZSBjb3JyZWxhdGlvbiBvZiAtMC42NiBiZXR3ZWVuIGEgdGVhbSdzIHJhbmtpbmcgYW5kIHRoZSBudW1iZXIgb2YgZ2FtZXMgdGhleSB3aW4uIFRoaXMgbWVhbnMgdGhhdCBhcyB0aGUgbnVtYmVyIG9mIHdpbnMgZGVjcmVhc2VzLCB0aGUgdGVhbSdzIHJhbmtpbmcgd29yc2Vucy4gQ29udmVyc2VseSwgYXMgdGhlIG51bWJlciBvZiB3aW5zIGluY3JlYXNlcywgdGhlIHRlYW0ncyByYW5raW5nIGltcHJvdmVzDQoNCkluIHRoZSBlbmQsIHdpbm5pbmcgdGhlIFdvcmxkIFNlcmllcyBkZXBlbmRzIG9uIHRoaW5ncyBsaWtlIHRlYW0gY2hlbWlzdHJ5LCBwbGF5ZXIgaGVhbHRoLCBoYW5kbGluZyBwcmVzc3VyZSwgYW5kIHNvbWV0aW1lcyBsdWNrLiBXaGlsZSBNb25leWJhbGwgaGVscHMgdGVhbXMgc3VjY2VlZCBhbmQgcmVhY2ggdGhlIHBsYXlvZmZzLCBwcmVkaWN0aW5nIHRoZSBXb3JsZCBTZXJpZXMgd2lubmVyIGludm9sdmVzIG1vcmUgdGhhbiBqdXN0IHN0YXRz4oCUaXQncyBhYm91dCBtYW55IG90aGVyIGZhY3RvcnMgdG9vLg0KDQo=