Mathematica Tool 2

This notebook is designed to be used with Activity 2 in Section 1.2.
Plot the number of daily newespapers in the US (for persons 18 or older for the period 1990-2002

data = {{1990,1611},{1991,1586},{1992,1570},{1993,1556},{1994,1548},{1995,1533},{1996,1520},{1997,1509},{1998,1489},{2000,1480},{2001,1468},{2002,1457}};
TableForm[data,TableHeadings->{Automatic,{"Year","Newspapers"}}]
Plot1 =
 ListPlot[data, PlotStyle -> PointSize[0.02],
  AxesLabel -> {"Year", "Newspapers"},
  PlotRange -> {{1988, 2003}, {1450, 1620}}]

Determine m and b to be to define your line of the form y=m t +b. Then plot the line together with the data points. Adjust m and b until you think you have the best fit.

m = 
b =

L[t_] := m*t + b
Plot2 := Plot[L[t], {t, 1988, 2003},
  PlotRange -> {{1988, 2003}, {1450, 1620}}]
Show[Plot1, Plot2]