- pm10s = c()
- repeat {
- {
- pm10s = c(pm10s, pm10_df[line_number,2])
- line_number = line_number + 1
- };
- if (line_number >= nrow(pm10_df)+1
- || strsplit(as.character(pm10_df[line_number,1])," ")[[1]][2] == '0:15')
- {
- break
- }}
- pm10_level = mean(pm10s, na.rm=TRUE)