Create Probability with R.txt