Add fastball R script