Run the R code seperatetly
better debugging