Linear Fit Models for data which is not quite linear

This is problem 1 from HW of Section 3.4.  We are going to: 
(a) plot the data,
(b) check to see if it is linear in appearance, 
(c) compute the line of best fit for the data, and 
(d) plot both the data and the line of best fit together.

This notebook can be used  to assist with many of the problems from Section 3.4.

MVFatData = {{0,1.11},{1,1.10},{2,1.14},{3,1.09},{4,1.07}};

ListPlot[ {MVFatData}, PlotMarkers->{"X"}, PlotStyle->{Black}, PlotLegends->{"Motor Vehicle Fatalities"}, PlotLabel->"Motor Vehicle Fatalities per 100 Million People t years after 2010"]

DPlot = ListPlot[ {MVFatData}, PlotMarkers->{"X"}, PlotStyle->{Black}, PlotLegends->{"Motor Vehicle Fatalities"}, PlotLabel->"Motor Vehicle Fatalities per 100 Million People t years after 2010", PlotRange->{{0,5},{0,2}}]

MVBestFitLine = LinearModelFit[MVFatData,{1,t},t]

LPlot = Plot[MVBestFitLine[t],{t,0,6},PlotStyle->{Blue,Thickness[0.005]},PlotLegends->{"Line of Best Fit"}]

Show[{DPlot, LPlot}, PlotRange->{{-0.5,6},{0.0,1.5}}, AxesOrigin->{0,0}]

MVFatData

{MVBestFitLine[0],MVBestFitLine[1],MVBestFitLine[2],MVBestFitLine[3],MVBestFitLine[4]}

Show[{DPlot, LPlot}, PlotRange->{{-0.5,6},{1.06,1.15}}, AxesOrigin->{0,1.06}]

BadLine = Plot[1.13 -0.0098* t,{t,0,6},PlotStyle->{Magenta,Thickness[0.005]},PlotLegends->{"NOT Line of Best Fit"}]

BadLine2 = Plot[1.11 -0.008* t,{t,0,6},PlotStyle->{Cyan,Thickness[0.005]},PlotLegends->{"NOT Line of Best Fit II"}]

Show[{DPlot, LPlot,BadLine, BadLine2}, PlotRange->{{-0.5,6},{1.06,1.15}}, AxesOrigin->{0,1.06}]

MVBestFitLine[5]