- We plot the line and then the data and the line and see that the fit looks quite good.

Input := 

p2 = Plot[pfit[x],{x,0,10}]
Output =

-Graphics-
Input := 

Show[p1,p2]
Output =

-Graphics-