Mathematica Tool 1

This notebook is designed to be used with Activity 1 in Section 1.2.
Plot the per capita cigarette consumption in the US (for persons 18 or older) for the period 1975-2000.

data = {{1975, 4123}, {1980, 3851}, {1985, 3461}, {1990,
    2827}, {1995, 2515}, {2000, 2092}};
TableForm[data,TableHeadings->{Automatic,{"Year","Consumption"}}]
Plot1 =
 ListPlot[data, PlotStyle -> PointSize[0.02],
  AxesLabel -> {"Year", "Consumption"},
  PlotRange -> {{1970, 2005}, {1500, 4500}}]

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, 1970, 2005},
  PlotRange -> {{1970, 2005}, {1500, 4500}}]
Show[Plot1, Plot2]

Use your linear model to estimate cigarette consumption in 1985 and 1990.

Use your linear model to estimate cigarette consumption in 2002