even differencing them at each increment to see how close our model is.

Input := 

Table[M[[i]] - IL[[i]],{i,1, Length[M]}];