over the data to see how good the fit looks to us.

Input := 

Show[fitPlot,dataPlot]

Output =

-Graphics-

This looks pretty good to us.