deleted some R code