run_analysis.R modified not to print dataset