added plot R scripts