source('../../Data/get_attendance_data.R')

DF = get_attendance_data()
DF$year_from_start = DF$year - 1998

m = lm(average_attendance ~ year_from_start, data=DF)
print(summary(m))

plot(DF$year_from_start, DF$average_attendance, 'p', xlab='Years from 1998', ylab='Average Attendance')
grid()
abline(m)