Update data_analysis.R