Activity_10

R Markdown

Exercise 1

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

# 2012 regular season wins
wins2012 <- c(94, 88, 95, 88, 93, 94, 98, 97, 93, 94)

# Correlation
cor(teamRank, wins2012)

## [1] 0.3477129

Result

## [1] 0.3477

---

Exercise 2

# 2013 regular season wins
wins2013 <- c(97, 97, 92, 93, 92, 96, 94, 96, 92, 90)

# Correlation
cor(teamRank, wins2013)

## [1] -0.6556945

Result

## [1] -0.6557