added R script for plotting some activities