We get ready to plot the difference vs. IO data.

Input := 

data = Table[{IO[[i]],ID[[i]]/10},{i,1, Length[IO]}];