In[]:=
bp=Import["C:\\Users\\rleventhal\\Downloads\\BP_readings_mathematica_test.xlsx",{"Data",1},HeaderLines->4]//TableForm​​
Out[]//TableForm=
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 08:31:00GMT-7
128.
84.
62.
reposition cuff higher up
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 09:00:00GMT-7
128.
85.
after morning coffee
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 10:55:00GMT-7
144.
88.
56.
after 2nd part of coffee
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 11:00:00GMT-7
139.
83.
56.
right after 2nd coffee one more time
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 16:25:00GMT-7
103.
62.
57.
wow, right after exercise, 3 miles jog
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 19:30:00GMT-7
127.
81.
56.
right after dinner
Fri 31 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 08:30:00GMT-7
109.
72.
62.
Morning before coffee
Fri 31 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 09:03:00GMT-7
124.
83.
64.
after first few sips of morning coffee
Fri 31 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 15:10:00GMT-7
124.
78.
58.
afternoon reading
Fri 31 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 20:52:00GMT-7
109.
73.
--
after dinner
In[]:=
bp1=bp[[All,3]]//TableForm
Out[]//TableForm=
Thu 30 Mar 2023 00:00:00GMT-7
Tue 30 Nov -2 08:30:00GMT-7
131.
85.
-
morning before coffee