Added R script for visualization output