[R][ADD] Prof Ding's R script