|
lt;NA>
117 5010 2017/6/3 4:26 1 3.2 <NA>
118 5012 2017/6/3 4:25 0 3.3 <NA>
119 5013 2017/6/3 4:40 0 3.7 <NA>
120 5014 2017/6/3 4:55 0 4.0 <NA>
121 5015 2017/6/3 5:10 0 4.4 <NA>
122 5016 2017/6/3 5:25 0 4.9 <NA>
123 5017 2017/6/3 5:40 0 5.4 <NA>
124 5018 2017/6/3 5:55 0 6.1 <NA>
125 5019 2017/6/3 6:10 0 7.1 <NA>
126 5020 2017/6/3 6:26 1 7.4 <NA>
127 5022 2017/6/3 6:25 0 7.2 <NA>
128 5023 2017/6/3 6:52 1 7.8 <NA>
129 5025 2017/6/3 6:40 0 7.7 <NA>
130 5026 2017/6/3 7:05 1 9.4 <NA>
131 5028 2017/6/3 6:55 0 8.8 <NA>
132 5029 2017/6/3 7:20 1 9.6 <NA>
133 5031 2017/6/3 7:10 0 9.8 <NA>
134 5032 2017/6/3 7:38 1 11.9 <NA>
135 5034 2017/6/3 7:25 0 10.7 <NA>
136 5035 2017/6/3 7:47 1 12.6 <NA>
137 5037 2017/6/3 7:41 0 12.3 <NA>
138 5038 2017/6/3 7:56 0 13.4 <NA>
139 5039 2017/6/3 8:19 1 12.6 <NA>
140 5041 2017/6/3 8:11 0 13.3 <NA>
141 5042 2017/6/3 8:26 0 12.2 <NA>
142 5043 2017/6/3 8:47 1 11.3 <NA>
143 5045 2017/6/3 8:41 0 11.5 <NA>
144 5046 2017/6/3 9:00 1 10.3 <NA>
145 5048 2017/6/3 9:07 1 9.6 <NA>
146 5050 2017/6/3 8:56 0 10.3 <NA>
147 5051 2017/6/3 9:15 1 8.7 <NA>
148 5053 2017/6/3 9:19 1 8.6 <NA>
149 5055 2017/6/3 9:21 1 8.5 <NA>
150 5057 2017/6/3 9:11 0 8.9 <NA>
151 5058 2017/6/3 9:30 1 7.8 <NA>
152 5060 2017/6/3 9:26 0 7.8 <NA>
153 5061 2017/6/3 9:42 1 7.6 <NA>
154 5063 2017/6/3 9:51 1 8.7 <NA>
155 5065 2017/6/3 9:41 0 8.2 <NA>
156 5066 2017/6/3 9:56 0 8.9 <NA>
157 5067 2017/6/3 10:11 1 9.2 <NA>
158 5069 2017/6/3 10:21 1 9.2 <NA>
159 5071 2017/6/3 10:25 1 9.3 <NA>
160 5073 2017/6/3 10:12 0 9.2 <NA>
161 5074 2017/6/3 10:32 1 9.7 <NA>
162 5076 2017/6/3 10:36 1 10.1 <NA>
163 5078 2017/6/3 10:38 1 10.2 <NA>
164 5080 2017/6/3 10:27 0 9.7 <NA>
165 5081 2017/6/3 10:42 0 10.2 <NA>
166 5082 2017/6/3 10:57 0 10.3 <NA>
[ reached getOption("max.print") -- omitted 3811 rows ]
> mean(mydata$GlucoseHistory[mydata$ID <= 4992]);#6/2
[1] 10.90101
> mean(mydata$GlucoseHistory[mydata$ID <= 5199 & mydata$ID >= 4993]);#6/3
[1] 7.88
> mean(mydata$GlucoseHistory[mydata$ID <= 5359 & mydata$ID >= 5200]);#6/4
[1] 11.97829
> mean(mydata$GlucoseHistory[mydata$ID <= 5538 & mydata$ID >= 5360]);#6/5
[1] 9.499281
> mean(mydata$GlucoseHistory[mydata$ID <= 5704 & mydata$ID >= 5539]);#6/6
[1] 11.81343
> mean(mydata$GlucoseHistory[mydata$ID <= 5875 & mydata$ID >= 5705]);#6/7
[1] 8.695588
> mean(mydata$GlucoseHistory[mydata$ID <= 6054 & mydata$ID >= 5876]);#6/8
[1] 10.91079
> mean(mydata$GlucoseHistory[mydata$ID <= 6114 & mydata$ID >= 6055]);#6/9
[1] 10.92353
> mean(mydata$GlucoseHistory[mydata$ID <= 6221 & mydata$ID >= 6115]);#6/10 #获取2-10号每天的血糖日平均值。
[1] 8.762195
> mean(mydata$GlucoseHistory);#获取全部的血糖日平均值。
[1] 9.791199
> mydata1 <- subset(mydata, mydata$ID <= 5199 & mydata$ID >= 4993);#获取3号子集。
> mydata2 <- subset(mydata, mydata$ID <= 5359 & mydata$ID >= 5200);#获取4号子集。
> mydata3 <- subset(mydata, mydata$ID <= 5538 & mydata$ID >= 5360);#获取5号子集。
> time1 <- mydata1$Time[mydata1$GlucoseHistory > 9];#获取3号符合条件的时间。
> time2 &l |