my rscript for fathmm