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: %%      load_data of self accordingly.
  -spec prepare_data([atom()], state()) -> {{load_data_list(), ring_data()}, state()}.
  prepare_data(SkippedModules, State) ->
      LoadDataNew =
          [begin
               case lists:member(data_get(name, LoadData), SkippedModules) of
                    true -> LoadData;
                    false ->
                       LoadData1 = divide2(avg, LoadData),
                       LoadData2 = divide2(avg2, LoadData1),
  
                       % Min and Max
                       do_nothing,
  