anchor.diff:    case Fd of
       undefined -> ok;
       _ ->
  -      NodeStats = get_node_stats(short, default),
  -      Values = [CurrTime - StartTime, CurrTime - PrevTime | lists:map(fun({_, Value}) ->
  -        Value end, NodeStats)],
  +      NodeStats = get_node_stats(medium),
  +      Values = [CurrTime - StartTime, CurrTime - PrevTime | lists:map(fun({_, Value}) -> Value end, NodeStats)],
         Format = string:join(lists:duplicate(length(Values), "~.6f"), ", ") ++ "\n",
         io:fwrite(Fd, Format, Values),
         ok
  
positive.code: %% StartTime, EndTime - time in seconds since epoch (1970-01-01), that defines interval
  %% for which statistics will be fetched
  -spec get_node_stats(StartTime :: integer(), EndTime :: integer()) -> Result when
    Result :: [{Name :: string(), Value :: float()}] | {error, term()}.
  %% ====================================================================
  get_node_stats(StartTime, EndTime) ->
    {ok, Timeout} = application:get_env(?APP_Name, rrd_timeout),
  
negative.code: %% @doc Get statistics about node load
  %% TimeWindow - time in seconds since now, that defines interval for which statistics will be fetched
  -spec get_node_stats(TimeWindow :: short | medium | long | integer()) -> Result when
    Result :: [{Name :: binary(), Value :: float()}] | {error, term()}.
  %% ====================================================================
  get_node_stats(TimeWindow) ->
    {ok, Interval} = case TimeWindow of
  