anchor.diff:  
   % averageAbove
   evaluate_call(<<"averageAbove">>, [Series, Avg], _From, _Until, _Now) ->
  -    lists:filter(fun(#series{values=Values}) -> statser_calc:safe_average(Values) >= Avg end, Series);
  +    filter_named(fun(#series{values=Values}) -> statser_calc:safe_average(Values) >= Avg end, Series, "averageAbove");
   
   % averageBelow
   evaluate_call(<<"averageBelow">>, [Series, Avg], _From, _Until, _Now) ->
  -    lists:filter(fun(#series{values=Values}) -> statser_calc:safe_average(Values) =< Avg end, Series);
  +    filter_named(fun(#series{values=Values}) -> statser_calc:safe_average(Values) =< Avg end, Series, "averageBelow");
   
   % averageOutsidePercentile
   evaluate_call(<<"averageOutsidePercentile">>, [Series, N0], _From, _Until, _Now) when is_number(N0) ->
  
positive.code:     end.
  
  
  with_function_name(Series, Name) ->
      with_function_name(Series, Name, []).
  
  
negative.code:     S2 = [pseudo_series([3.0, 9.0, 6.0])], % avg 6.0
      S3 = [pseudo_series([3.0, 12.0, 9.0])], % avg 8.0
      Series = S1 ++ S2 ++ S3,
      Named = fun(S) -> lists:map(fun(X) -> with_function_name(X, "averageOutsidePercentile") end, S) end,
      [?_assertEqual(Named(S1 ++ S3), evaluate_call(<<"averageOutsidePercentile">>, [Series, 80], 0, 0, 0)),
       ?_assertEqual(Named(Series), evaluate_call(<<"averageOutsidePercentile">>, [Series, 50], 0, 0, 0))
      ].
  
  most_deviant_test_() ->
  