Sourse code for run_analisys.R