run_analysis.R partly working