anchor.diff:                             || _ <- lists:seq(1, (DirtyIOSchedulers+1) div 2),
                                      DirtyIOSchedulers =/= 1],
           FullScheds = get_load(Type),
  +        ct:log("FullScheds: ~w",[FullScheds]),
           {false,_} = {lists:any(fun(Load) -> Load < 80 end, FullScheds),FullScheds},
           FullLoad = lists:sum(FullScheds) div TotLoadSchedulers,
           if FullLoad > 90 -> ok;
  
positive.code:                             || _ <- lists:seq(1, lists:max([1,DirtyCPUSchedulers div 2]))],
          HalfDirtyIOHogs = [StartDirtyHog(dirty_io)
                             || _ <- lists:seq(1, lists:max([1,DirtyIOSchedulers div 2]))],
          HalfLoad = lists:sum(get_load(Type)) div TotLoadSchedulers,
          if Schedulers =:= 1, HalfLoad > 80 -> ok; %% Ok only one scheduler online and one hog
             %% We want roughly 50% load
             HalfLoad > 40, HalfLoad < 60 -> ok;
  
negative.code:     DirtyCPUSchedulersOnline = erlang:system_info(dirty_cpu_schedulers_online),
      DirtyIOSchedulersOnline = erlang:system_info(dirty_io_schedulers),
      SortedStats = lists:sort(Stats),
      ct:pal("Stats: ~p~n", [SortedStats]),
      SchedulersStats =
          lists:sublist(SortedStats, 1, SchedulersOnline),
      DirtyCPUSchedulersStats =
  