R code pasted