Mathcamp 2018: Statistical Modeling

Data for the first R lab session:

New data for the second R lab session:

Here are a few snippets should you desire to copy and paste for the second practical

bballDat <- read.table(“Baseball.txt”, header=T)
linMod.lm<-lm(bballDat$EBP~bballDat$OBA)
bballDat$OBA2<-bballDat$OBA^2
quadMod.lm<-lm(bballDat$EBP~bballDat$OBA+bballDat$OBA2)
plot(bballDat$EBP~bballDat$OBA)

Bonus