function [value, index] = FindMax(data)
%FindMax Find the max (+ or -) within dataset
%   Compare dataset max and inverse dataset max and return highest value
%   and index
    [positive_magnitude, positive_index] = max(data);
    [negative_magnitude, negative_index] = max(-data);
    if positive_magnitude > negative_magnitude
        index = positive_index;
        value = data(index);
    else
        index = negative_index;
        value = data(index);
    end
end