Add R script for anaysis result