run_analysis.R update

correcting BodyBody