Inj class activity 10 Assignment

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

cor(teamRank, wins2013)

[1] -0.6556945

 cor(teamRank, wins2012)

[1] 0.3477129

 -0.5445695

[1] -0.5445695

 cor(teamRank, wins2013)

[1] -0.6556945

 -0.1474419

[1] -0.1474419

## 2012: There's a moderate negative correlation (−0.54), meaning higher-ranked teams (closer to 1) tended to have fewer wins in the regular season — possibly due to postseason performance being independent of regular season dominance.

# 2013: Very weak negative correlation (−0.15), showing almost no relationship between playoff success and regular season wins.

plot(teamRank, wins2012, 
     main="Team Rank vs Wins (2012)",
     xlab="Team Rank (Lower is Better)", 
     ylab="Regular Season Wins", 
     pch=19, col="blue")
abline(lm(wins2012 ~ teamRank), col="red", lwd=2)

plot(teamRank, wins2013, 
     main="Team Rank vs Wins (2013)",
     xlab="Team Rank (Lower is Better)", 
     ylab="Regular Season Wins", 
     pch=19, col="darkgreen")
abline(lm(wins2013 ~ teamRank), col="red", lwd=2)

#These negative correlations suggest that lower ranks (i.e., better playoff performance) tend to correspond with slightly fewer wins, especially in 2012. However, the weak correlation in 2013 shows that regular season wins alone are not strong predictors of playoff success.