added analysis.R file with code for the project lesson material