Activity_10

teamRank <- c(1,2,3,3,4,4,4,4,5,5)

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

0.3477129

cor(teamRank, wins2013)

[1] -0.6556945

# Rank vector
teamRank <- c(1,2,3,3,4,4,4,4,5,5)

# Wins in 2012
wins2012 <- c(94,88,95,88,93,94,98,97,93,94)

# Wins in 2013
wins2013 <- c(97,97,92,93,92,96,94,96,92,90)

# Correlations
cor(teamRank, wins2012)

[1] 0.3477129

cor(teamRank, wins2013)

[1] -0.6556945