Working at run_analysis.R file