junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix valid sensed days with 0 valid bins

pull/95/head
JulioV 2020-08-07 11:07:37 -04:00
parent 6d50bff220
commit b04088f11f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/data/phone_valid_sensed_days.R
View File

@ -12,9 +12,8 @@ phone_valid_sensed_days <- phone_sensed_bins %>%
filter(value > 0) %>%
group_by(local_date, hour) %>%
summarise(valid_bins = n()) %>%
filter(valid_bins >= min_valid_bins_per_hour) %>%
group_by(local_date) %>%
summarise(valid_sensed_hours = n()) %>%
summarise(valid_sensed_hours = sum(valid_bins >= min_valid_bins_per_hour)) %>%
mutate(is_valid_sensed_day = ifelse(valid_sensed_hours >= min_valid_hours_per_day, TRUE, FALSE))
write.csv(phone_valid_sensed_days, output_file, row.names = FALSE)