synced R code