analysis/analyze_all_subject_seattle.R

In 2533245542/rwalkbout: Generate walk bout information from accelerometry and GPS data.

source("setup.R")

## configs
acc_folder_path <- '/Users/wzhou87/Desktop/retrieved_backup/epiProject/walk_bout/data/trac/acc/'
gps_folder_path <- '/Users/wzhou87/Desktop/retrieved_backup/epiProject/walk_bout/data/trac/gps/'
result_save_folder <- "/Users/wzhou87/Desktop/retrieved_backup/epiProject/walk_bout/data/result/test/trac"
time_zone <- 'America/Los_Angeles'

## 1. process all subjects and store the result
file_mapper_result <- seattle_baseline_1_file_mapper(acc_folder_path=acc_folder_path, gps_folder_path=gps_folder_path)
file_mapper_result <- file_mapper_result[!(file_mapper_result$subject_id %in% c("13421835_baseline_1", "12915257_baseline_1")), ]  # epoch period 1min subjects
path_result <- process_many_subject(vector_of_acc_file_path = file_mapper_result$acc_file_path, vector_of_gps_file_path = file_mapper_result$gps_file_path, vector_of_subject_id = file_mapper_result$subject_id, acc_file_reader = seattle_baseline_1_acc_file_reader, gps_file_reader = seattle_baseline_1_gps_file_reader, result_save_folder=result_save_folder, time_zone=time_zone)


## 2. read the processed results, do analysis and output summary
result_df <- read_result_save_folder_as_dataframe(result_save_folder)
subject_aggregated_df <- result_df %>%
  group_by(subject_id) %>%
  group_modify(get_subject_aggragtes)