Added the R script that converts Stata result into final answer