anchor.diff:  
       %% Averages ring
       MyRing1 = state_get(ring_data, State1),
  -    Fun2 = fun (AvgType, MyData) -> merge_avg(AvgType, MyData, OtherRing) end,
  -    MyRing2 = lists:foldl(Fun2, MyRing1, [size_inv, avg_kr]),
  -    State2 = state_set(ring_data, MyRing2, State1),
  -
  -    NewData = {LoadDataListNew, MyRing2},
  +    MyRing2 = merge_avg(size_inv, MyRing1, OtherRing),
  +    MyRing3 = merge_avg(avg_kr, MyRing2, OtherRing),
  +    State2 = state_set(ring_data, MyRing3, State1),
  +
  +    NewData = {LoadDataListNew, MyRing3},
       State4 = case Update of
           update ->
               State3 = state_update(merged, fun inc/1, State2),
  
positive.code:                      % Histogram
                       _LoadData3 = divide2(LoadData2)
               end
           end
      || LoadData <- state_get(load_data_list, State)],
  
      State1 = state_set(load_data_list, LoadDataNew, State),
  
      % Averages ring data
      RingData1 = state_get(ring_data, State1),
      RingData2 = lists:foldl(Fun, RingData1, [size_inv, avg_kr]),
  
      State2 = state_set(ring_data, RingData2, State1),
  
  
negative.code:                   false ->
                       ?ASSERT(data_get(name, MyLoad1) =:= data_get(name, OtherLoad)),
                       % Averages load
                       MyLoad2 = merge_avg(avg, MyLoad1, OtherLoad),
                       MyLoad3 = merge_avg(avg2, MyLoad2, OtherLoad),
  
                       % Min
                       MyMin = data_get(min, MyLoad2),
                       OtherMin = data_get(min, OtherLoad),
                       MyLoad4 =
                           if  MyMin =< OtherMin -> data_set(min, MyMin, MyLoad3);
                               MyMin > OtherMin -> data_set(min, OtherMin, MyLoad3)
                           end,
  
                       % Max
                       MyMax = data_get(max, MyLoad3),
                       OtherMax = data_get(max, OtherLoad),
                       MyLoad5 =
                           if  MyMax =< OtherMax -> data_set(max, OtherMax, MyLoad4);
                               MyMax > OtherMax -> data_set(max, MyMax, MyLoad4)
                           end,
  
                       % Histogram
                       _MyLoad5 = merge_histo(MyLoad5, OtherLoad)
               end
           end || {MyLoad1, OtherLoad} <- lists:zip(MyLoadList, OtherLoadList)],
  
  