more R code!
merge