From 0bd946b53c6954b9d9e4bf0cafcfc11ee96e8482 Mon Sep 17 00:00:00 2001 From: JulioV Date: Wed, 4 Dec 2019 11:39:40 -0500 Subject: [PATCH] Delete row names from sensed bins and valid sensed days --- src/data/phone_sensed_bins.R | 2 +- src/data/phone_valid_sensed_days.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)