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)
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).
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)
wins2012= c(94,88,95,88,93,94,98,97,93,94)
wins2013= c(97,97,92,93,92,96,94,96,92,90)
cor(teamRank, wins2012)
[1] 0.3477129
cor(teamRank, wins2013)
[1] -0.6556945
Exercise 1 : Correlation between teamRank and wins2012 is = 0.3477
which is a weak positive. Teams with regular wins season did not
necessary means go further in the playoff, which is what the Money Ball
theory indicates.
What is the correlation between teamRank and wins2013? Exercise 2
Numerical Response −0.66 (moderate negative)
Higher rank (worse finish) correlates with fewer wins — this year,
better regular season teams did slightly better in playoffs.
LS0tCnRpdGxlOiAiSW4tY2xhc3MgYWN0aXZpdHkxMCBDb3JyZWxhdGlvbiBiZXR3ZWVuIFRlYW1zIFJhbmsgYW5kIFdpbnMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClJhbmsgMTogdGhlIHRlYW0gdGhhdCB3b24gdGhlIFdvcmxkIFNlcmllcwpSYW5rIDI6IHRoZSB0ZWFtIHRoYXQgbG9zdCB0aGUgV29ybGQgU2VyaWVzClJhbmsgMzogdGhlIHR3byB0ZWFtcyB0aGF0IGxvc3QgdG8gdGhlIHRlYW1zIGluIHRoZSBXb3JsZCBTZXJpZXMKUmFuayA0OiB0aGUgZm91ciB0ZWFtcyB0aGF0IG1hZGUgaXQgcGFzdCB0aGUgd2lsZCBjYXJkIHJvdW5kLCBidXQgbG9zdCB0byB0aGUgYWJvdmUgZm91ciB0ZWFtcwpSYW5rIDU6IHRoZSB0d28gdGVhbXMgdGhhdCBsb3N0IHRoZSB3aWxkIGNhcmQgcm91bmQKCgpgYGB7cn0KdGVhbVJhbmsgPSBjKDEsMiwzLDMsNCw0LDQsNCw1LDUpCgpgYGAKUmFuayAxOiBTYW4gRnJhbmNpc2NvIEdpYW50cyAoV2lucyA9IDk0KQpSYW5rIDI6IERldHJvaXQgVGlnZXJzIChXaW5zID0gODgpClJhbmsgMzogTmV3IFlvcmsgWWFua2VlcyAoV2lucyA9IDk1KSwgYW5kIFN0LiBMb3VpcyBDYXJkaW5hbHMgKFdpbnMgPSA4OCkKUmFuayA0OiBCYWx0aW1vcmUgT3Jpb2xlcyAoV2lucyA9IDkzKSwgT2FrbGFuZCBB4oCZcyAoV2lucyA9IDk0KSwgV2FzaGluZ3RvbiBOYXRpb25hbHMgKFdpbnMgPSA5OCksIENpbmNpbm5hdGkgUmVkcyAoV2lucyA9IDk3KQpSYW5rIDU6IFRleGFzIFJhbmdlcnMgKFdpbnMgPSA5MyksIGFuZCBBdGxhbnRhIEJyYXZlcyAoV2lucyA9IDk0KSAKCkNyZWF0ZSBhIHZlY3RvciBpbiBSIGNhbGxlZCB3aW5zMjAxMiwgdGhhdCBoYXMgdGhlIHdpbnMgb2YgZWFjaCB0ZWFtIGluIDIwMTIsIGluIG9yZGVyIG9mIHJhbmsgKHRoZSB2ZWN0b3Igc2hvdWxkIGhhdmUgMTAgbnVtYmVycykuCgpJbiAyMDEzLCB0aGUgcmFua2luZyBvZiB0aGUgdGVhbXMgYW5kIHRoZWlyIHJlZ3VsYXIgc2Vhc29uIHdpbnMgd2VyZSBhcyBmb2xsb3dzOgpSYW5rIDE6IEJvc3RvbiBSZWQgU294IChXaW5zID0gOTcpClJhbmsgMjogU3QuIExvdWlzIENhcmRpbmFscyAoV2lucyA9IDk3KQpSYW5rIDM6IExvcyBBbmdlbGVzIERvZGdlcnMgKFdpbnMgPSA5MiksIGFuZCBEZXRyb2l0IFRpZ2VycyAoV2lucyA9IDkzKQpSYW5rIDQ6IFRhbXBhIEJheSBSYXlzIChXaW5zID0gOTIpLCBPYWtsYW5kIEHigJlzIChXaW5zID0gOTYpLCBQaXR0c2J1cmdoIFBpcmF0ZXMgKFdpbnMgPSA5NCksIGFuZCBBdGxhbnRhIEJyYXZlcyAoV2lucyA9IDk2KQpSYW5rIDU6IENsZXZlbGFuZCBJbmRpYW5zIChXaW5zID0gOTIpLCBhbmQgQ2luY2lubmF0aSBSZWRzIChXaW5zID0gOTApCgoKYGBge3J9CndpbnMyMDEyPSBjKDk0LDg4LDk1LDg4LDkzLDk0LDk4LDk3LDkzLDk0KQp3aW5zMjAxMz0gYyg5Nyw5Nyw5Miw5Myw5Miw5Niw5NCw5Niw5Miw5MCkKCmNvcih0ZWFtUmFuaywgd2luczIwMTIpCmNvcih0ZWFtUmFuaywgd2luczIwMTMpCmBgYAoKRXhlcmNpc2UgMSA6IENvcnJlbGF0aW9uIGJldHdlZW4gdGVhbVJhbmsgYW5kIHdpbnMyMDEyIGlzID0gMC4zNDc3IHdoaWNoIGlzIGEgd2VhayBwb3NpdGl2ZS4gVGVhbXMgd2l0aCByZWd1bGFyIHdpbnMgc2Vhc29uIGRpZCBub3QgbmVjZXNzYXJ5IG1lYW5zIGdvIGZ1cnRoZXIgaW4gdGhlIHBsYXlvZmYsIHdoaWNoIGlzIHdoYXQgdGhlIE1vbmV5IEJhbGwgdGhlb3J5IGluZGljYXRlcy4KCldoYXQgaXMgdGhlIGNvcnJlbGF0aW9uIGJldHdlZW4gdGVhbVJhbmsgYW5kIHdpbnMyMDEzPwpFeGVyY2lzZSAyCk51bWVyaWNhbCBSZXNwb25zZQriiJIwLjY2IChtb2RlcmF0ZSBuZWdhdGl2ZSkKCQpIaWdoZXIgcmFuayAod29yc2UgZmluaXNoKSBjb3JyZWxhdGVzIHdpdGggZmV3ZXIgd2lucyDigJQgdGhpcyB5ZWFyLCBiZXR0ZXIgcmVndWxhciBzZWFzb24gdGVhbXMgZGlkIHNsaWdodGx5IGJldHRlciBpbiBwbGF5b2Zmcy4KCgo=