anchor.diff:  %%      load_data of self accordingly.
   -spec prepare_data([atom()], state()) -> {{load_data_list(), ring_data()}, state()}.
   prepare_data(SkippedModules, State) ->
  -    % Averages
  -    Fun = fun (AvgType, MyData) -> divide2(AvgType, MyData) end,
       LoadDataNew =
           [begin
                case lists:member(data_get(name, LoadData), SkippedModules) of
                     true -> LoadData;
                     false ->
  -                     LoadData2 = lists:foldl(Fun, LoadData, [avg, avg2]),
  +                     LoadData1 = divide2(avg, LoadData),
  +                     LoadData2 = divide2(avg2, LoadData1),
   
                        % Min and Max
                        do_nothing,
  
positive.code: 
      %% 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},
      State4 = case Update of
          update ->
              State3 = state_update(merged, fun inc/1, State2),
  
negative.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 = divide2(size_inv, state_get(ring_data, State1)),
      RingData2 = divide2(avg_kr, RingData1),
  
      State2 = state_set(ring_data, RingData2, State1),
  
  