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