# # Written by: # -- # John L. Weatherwax 2009-04-21 # # email: wax@alum.mit.edu # # Please send comments and especially bug reports to the # above email address. # #----- # # EPage 139 # DF = read.csv( "../../Data/baseball_attendance.csv", header=TRUE ) DF$win + DF$loss # Include wins and losses as predictors: # summary( lm( average_attendance ~ win + loss, data=DF ) ) # Include just wins: # summary( lm( average_attendance ~ win, data=DF ) )