Examine Pressure Reading Drops Due to Hurricane Sandy 

Use AirPressureData to examine pressure reading drops due to Hurricane Sandy at Long Island MacArthur Airport.

In[1]:=

X pressure = AirPressureData[ "KISP", {DateObject[{2012, 10, 24}], DateObject[{2012, 10, 30}]}]

Out[1]=

In[2]:=

X DateListPlot[pressure, FrameLabel -> Automatic, ImageSize -> 300]

Out[2]=

Find the lowest pressure measured during the observation time and express it in various units.

In[3]:=

X Map[UnitConvert[Min[pressure], #] &, {"Milibars", "mmHg", "inHG"}]

Out[3]=

Use Differences to investigate the pressure changes.

In[4]:=

X resampled = TimeSeriesResample[pressure, "Hour"];

In[5]:=

X changes = Differences[resampled];

In[6]:=

X DateListPlot[changes]

Out[6]=

Use LowpassFilter to reduce the noise in the differenced signal.

In[7]:=

X changes2 = Differences[LowpassFilter[resampled, 2]];

show complete Wolfram Language inputhide input

In[8]:=

X DateListPlot[{changes, changes2}, PlotRange -> All, FrameLabel -> Automatic, ImageSize -> Medium, PlotLegends -> {"direct differencing", "filtered differencing"}, PlotTheme -> "Detailed"]

Out[8]=

Find the maximum registered drop and spike of the pressure.

In[9]:=

X Map[#[changes2] &, {Min, Max}]

Out[9]=