Added Probability R script

For my probability based playing