챕터1. Correlation between Hit and Run scored

Purpose

Using team data for the season 2016, I tested the correlation between HIT and Run Scored.

Result

library(Lahman)
dat<-subset(Teams, yearID==2016, select=c(R, H))
cor(dat$R, dat$H)

## [1] 0.6948651

Findings

I found a positive relationship between the two variables.

Scatterplot

*I plotted the relationship.

plot(dat$H, dat$R)