Added title to R visuals script. Updated output in main