%% Testing new function for Gain vs the Excel method

for i = 1:height(Book1.RawPhase)

    [Book1.GainNew(i), ~] = CalculateOptodeGain(Book1.Temp(i), ...
        Book1.AtmosphericPressure(i), Book1.RelativeHumidity(i), Book1.O2mLL(i));

end
Book1.Diff = Book1.Gain - Book1.GainNew;
Book1.GainPercentDiff = 100 .* (Book1.GainNew - Book1.Gain) ./ Book1.Gain;

% All are within approximately 1%. All with relative humidity = 1 are
% within >0.1%

%%
[Book1.GainNew(i), ~] = CalculateOptodeGain(Book1.Temp(i), ...
        Book1.AtmosphericPressure(i), Book1.RelativeHumidity(i), Book1.O2mLL(i),[]);