File run analysis.R updated