added the R code to plot the put and get data