Update DataAnalysis.R