add some R script to help stat