function m_lookHs2(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
FileName = 'spec.misc';

prop = readProperties(fullfile(getOasisPath, '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];

% Read the hs2 data file
hs2 = readflatfile(fullfile(getOasisPath, id, 'data', 'hs2.brian'));
t = utc2sdn(hs2(:,1));
good = find(t >= now - NumOfDays);
t = t(good);
bb470 = hs2(good, 2);
bb676 = hs2(good, 3);

a0 = axes;
set(a0, 'Xtick', [], 'YTick', [], 'Box', 'on')
title(['\bf{HS2 Backscatter at ' upper(id) ' (' loc{1} ')}'])

a1 = axes;
Color1 = [0 0 1];
plot(t, bb470, 'Color', Color1);
set(a1, 'YColor', Color1, 'box', 'off', 'Color', 'none', 'Xgrid', 'on', ...
   'XLim', XLim, 'Layer', 'bottom')
daytick('x');
ylabel('\bf{Backscatter at 470nm}', 'Color', Color1)
xlabel('\bf{Date}')

a2 = axes;
Color2 = [1 0 0];
plot(t, bb676, 'Color', Color2)
set(a2, 'Color', 'none', 'XLim', XLim, 'XTick', [], 'YColor', Color2, ...
   'box', 'off','YAxisLocation', 'right')
ylabel('\bf{Backscatter at 676nm}', 'Color', Color2, 'Rotation', 270, 'VerticalAlignment', 'Bottom')
setfontsize(7)

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