data(team.batting.00to08)
attach(team.batting.00to08)
runs.mdl <- lm(
formula=runs~singles+doubles+triples+homeruns+
walks+hitbypitch+sacrificeflies+
stolenbases+caughtstealing,
data=team.batting.00to08)
summary(runs.mdl)
Run the code above in your browser using DataLab