diff --git a/src/data/phone_sensed_bins.R b/src/data/phone_sensed_bins.R index 329fc905..f0aa67e3 100644 --- a/src/data/phone_sensed_bins.R +++ b/src/data/phone_sensed_bins.R @@ -27,5 +27,5 @@ phone_sensed_bins <- all_sensor_data %>% fill = list(sensor_count=0)) %>% pivot_wider(names_from = c(local_hour, bin), values_from = sensor_count) -write.csv(phone_sensed_bins, output_file) +write.csv(phone_sensed_bins, output_file, row.names = FALSE) diff --git a/src/data/phone_valid_sensed_days.R b/src/data/phone_valid_sensed_days.R index f76541bc..b3c06408 100644 --- a/src/data/phone_valid_sensed_days.R +++ b/src/data/phone_valid_sensed_days.R @@ -28,4 +28,4 @@ phone_valid_sensed_days <- all_sensor_data %>% summarise(valid_hours = n()) %>% # Count how many valid hours each day has filter(valid_hours >= min_valid_hours) # Discard those days where there were fewer than min_valid_hours -write.csv(phone_valid_sensed_days, output_file) +write.csv(phone_valid_sensed_days, output_file, row.names = FALSE)