post related R script and study resource