R Notebook

# Cell 1
teamRank = c(1, 2, 3, 3, 4, 4, 4, 4, 5, 5)

# Cell 2
wins2012 = c(94, 88, 95, 88, 93, 94, 98, 97, 93, 94)
wins2013 = c(97, 97, 92, 93, 92, 96, 94, 96, 92, 90)

# Cell 3 - Exercise 1
cor(teamRank, wins2012)

[1] 0.3477129

# Cell 4 - Exercise 2
cor(teamRank, wins2013)

[1] -0.6556945