Checking in R code that produced good submission