fun_Analysis.R done