Updating analysis.R