And we list these times, t, and the corresponding OilSlick[t] values.

Input := 

newdata = Table[{time[[i]],IO[[i]]},{i,1, Length[IO]}]

Output =

             -8
{{-5.96316 10  , 1.047}, {113.244, 2.005}, 
 
  {297.101, 3.348}, {736.703, 5.719}, 
 
  {1184.38, 7.273}, {1715.34, 8.41}, 
 
  {2284.83, 9.117}}