Removed all R code for testing