Update secret santa probabilities.R

Removed a few lines that I used to test loops