added R script for visualization output