In[]:=
bp=Import["C:\\Users\\rleventhal\\Downloads\\BP_readings_mathematica_test.xlsx",{"Data",1},HeaderLines->4]//TableForm
Out[]//TableForm=
128. | 84. | 62. | reposition cuff higher up | |||
128. | 85. | after morning coffee | ||||
144. | 88. | 56. | after 2nd part of coffee | |||
139. | 83. | 56. | right after 2nd coffee one more time | |||
103. | 62. | 57. | wow, right after exercise, 3 miles jog | |||
127. | 81. | 56. | right after dinner | |||
109. | 72. | 62. | Morning before coffee | |||
124. | 83. | 64. | after first few sips of morning coffee | |||
124. | 78. | 58. | afternoon reading | |||
109. | 73. | -- | after dinner |
In[]:=
bp1=bp[[All,3]]//TableForm
Out[]//TableForm=
144. |
88. |
56. |
after 2nd part of coffee |
In[]:=
rawBP=Import["C:\\Users\\rleventhal\\Downloads\\BP_readings_mathematica_test.xlsx",{"Data",1},HeaderLines->1];BProws=DeleteCases[rawBP,{""...}];
In[]:=
BProws
Out[]=
,,,135.,84.,62.,night time trial ,,,,131.,85.,54.,morning before coffee,,,,128.,84.,62.,reposition cuff higher up,,,,128.,85.,,after morning coffee,,,,144.,88.,56.,after 2nd part of coffee,,,,139.,83.,56.,right after 2nd coffee one more time ,,,,103.,62.,57.,wow, right after exercise, 3 miles jog,,,,127.,81.,56.,right after dinner,,,,109.,72.,62.,Morning before coffee,,,,124.,83.,64.,after first few sips of morning coffee,,,,124.,78.,58.,afternoon reading,,,,109.,73., --,after dinner
In[]:=
NormalizeDateTime[{date_,time_,rest___}]:={DateObject[Join[DateValue[date,{"Year","Month","Day"}],DateValue[time,{"Hour","Minute","Second"}]]],rest}
In[]:=
BPr1=NormalizeDateTime/@BProws
Out[]=
,,135.,84.,62.,night time trial ,,,131.,85.,54.,morning before coffee,,,128.,84.,62.,reposition cuff higher up,,,128.,85.,,after morning coffee,,,144.,88.,56.,after 2nd part of coffee,,,139.,83.,56.,right after 2nd coffee one more time ,,,103.,62.,57.,wow, right after exercise, 3 miles jog,,,127.,81.,56.,right after dinner,,,109.,72.,62.,Morning before coffee,,,124.,83.,64.,after first few sips of morning coffee,,,124.,78.,58.,afternoon reading,,,109.,73., --,after dinner
In[]:=
BPr1/.""Missing[]
Out[]=
,Missing[],135.,84.,62.,night time trial ,,Missing[],131.,85.,54.,morning before coffee,,Missing[],128.,84.,62.,reposition cuff higher up,,Missing[],128.,85.,Missing[],after morning coffee,,Missing[],144.,88.,56.,after 2nd part of coffee,,Missing[],139.,83.,56.,right after 2nd coffee one more time ,,Missing[],103.,62.,57.,wow, right after exercise, 3 miles jog,,Missing[],127.,81.,56.,right after dinner,,Missing[],109.,72.,62.,Morning before coffee,,Missing[],124.,83.,64.,after first few sips of morning coffee,,Missing[],124.,78.,58.,afternoon reading,,Missing[],109.,73., --,after dinner
In[]:=
BPr1/." --"->Missing[]/.""->Missing[]
Out[]=
,Missing[],135.,84.,62.,night time trial ,,Missing[],131.,85.,54.,morning before coffee,,Missing[],128.,84.,62.,reposition cuff higher up,,Missing[],128.,85.,Missing[],after morning coffee,,Missing[],144.,88.,56.,after 2nd part of coffee,,Missing[],139.,83.,56.,right after 2nd coffee one more time ,,Missing[],103.,62.,57.,wow, right after exercise, 3 miles jog,,Missing[],127.,81.,56.,right after dinner,,Missing[],109.,72.,62.,Morning before coffee,,Missing[],124.,83.,64.,after first few sips of morning coffee,,Missing[],124.,78.,58.,afternoon reading,,Missing[],109.,73.,Missing[],after dinner
In[]:=
datetime=BPr1[[All,1]]
Out[]=
,,,,,,,,,,,
In[]:=
sysBP=BPr1[[All,3]]
Out[]=
{135.,131.,128.,128.,144.,139.,103.,127.,109.,124.,124.,109.}
DateListPlot[{datetime},{sysBP}]
Out[]=
DateListPlot,,,,,,,,,,,,{{135.,131.,128.,128.,144.,139.,103.,127.,109.,124.,124.,109.}}
In[]:=
Transpose[{{datetime},{sysBP}}]
Out[]=
,,,,,,,,,,,,{135.,131.,128.,128.,144.,139.,103.,127.,109.,124.,124.,109.}
In[]:=
sysDia=BPr1[[All,4]]
Out[]=
{84.,85.,84.,85.,88.,83.,62.,81.,72.,83.,78.,73.}
In[]:=
st=Transpose[{{84.`,85.`,84.`,85.`,88.`,83.`,62.`,81.`,72.`,83.`,78.`,73.`},{135.`,131.`,128.`,128.`,144.`,139.`,103.`,127.`,109.`,124.`,124.`,109.`}}]
Out[]=
{{84.,135.},{85.,131.},{84.,128.},{85.,128.},{88.,144.},{83.,139.},{62.,103.},{81.,127.},{72.,109.},{83.,124.},{78.,124.},{73.,109.}}
In[]:=
Grid[st]
Out[]=
84. | 135. |
85. | 131. |
84. | 128. |
85. | 128. |
88. | 144. |
83. | 139. |
62. | 103. |
81. | 127. |
72. | 109. |
83. | 124. |
78. | 124. |
73. | 109. |