anchor.diff:      {TS, P0} = array:get(P0Idx, PacketArray),
       S0 = rts_init(Src, Dst, TS, P0),
       lists:foldl(fun (Idx, State) ->
  -                        {_TSi, Pi} = array:get(Idx, PacketArray),
  -                        rts_update(Pi, State)
  +                        rts_update(packet(Idx, PacketArray), State)
                   end,
                   S0,
                   Idxs).
  
positive.code:                  end,
                   D0,
                   OrdData)}.
  
negative.code: tcp_establishment_times(File) ->
      {PacketArray,_Count} = tcp_packet_array(File),
      Times = [ begin
                    Atime = timestamp(A, PacketArray),
                    Btime = timestamp(B, PacketArray),
                    {Flow, erlang:abs(Atime - Btime)}
                end
                || {Flow, [A, B]} <- tcp_flows(PacketArray)],
  