Result of running r_analysis.R

initial