Create data_analysis.R