Add labeled training data along with original data and R code