function m_lookBeta(id, NumOfDays)

% Prompt for input if no input arguments are specified
if nargin < 2
   NumOfDays = 7;
end

% Set the path to the data file depending on what type of machine this function is run from
filePath = ['//tsunami.shore.mbari.org/oasis/' id '/data/'];
abetaFile = getfname([filePath 'abeta_*.*']);
cbetaFile = getfname([filePath 'cbeta_*.*']);

prop = readProperties('//tsunami.shore.mbari.org/oasis/cfg/mooring.properties');
lat = sscanf(getProperty(prop, [id '.latitude']), '%f');
lon = sscanf(getProperty(prop, [id '.longitude']), '%f');
if isempty(lat) | isempty(lon)
   loc = [];
else
   loc = getLocationString(lat, lon);
end

XLim = [now-NumOfDays now];

abeta = load([filePath abetaFile]);
cbeta = load([filePath cbetaFile]);

ta = utc2sdn(abeta(:,1));
tc = utc2sdn(cbeta(:,1));

good = find(ta >= now-NumOfDays);
ta = ta(good);
abeta = abeta(good, :);

good = find(tc >= now-NumOfDays);
tc = tc(good);
cbeta = cbeta(good, :);

aColorU = [.7 .3 .3];
aColor  = [1 0 0];
cColorU = [.3 .3 .7];
cColor  = [0 0 1];

figure;
subplot(3,1,1)
plot(ta, abeta(:,6), 'Color', aColor, 'LineWidth', 2)
hold on
plot(ta, abeta(:,7), 'Color', aColorU, 'LineWidth', 2)
plot(tc, cbeta(:,6), 'Color', cColor, 'LineWidth', 2)
plot(tc, cbeta(:,7), 'Color', cColorU, 'LineWidth', 2)
hold off
legend('abeta', 'abeta uncorrected', 'cbeta', 'cbeta uncorrected')
set(gca, 'XLim', XLim, 'XTickLabel', [], 'XGrid', 'on')
daytick('x')
ylabel('\bf{Backscatter (m^-^1)}')

subplot(3,1,2)
plot(ta, abeta(:,9), 'Color', aColor, 'LineWidth', 2) % a
hold on
plot(tc, cbeta(:,7), 'Color', cColor, 'LineWidth', 2) % c
hold off
set(gca, 'XLim', XLim, 'XTickLabel', [], 'XGrid', 'on')
daytick('x')
ylabel('\bf{a & c (m^-^1)}')

subplot(3,1,3)
plot(ta, abeta(:,8), 'Color', aColor, 'LineWidth', 2) % a
set(gca, 'XLim', XLim, 'XGrid', 'on')
daytick('x')
ylabel('\bf{K (m^-^1)}')
xlabel('\bf{Date}')
setfontsize(7)

set(gcf, 'PaperPosition', [0 0 3.75 3.25])