Create smoothCR.r

-no loops
-messed around with beta values to see what was happening
-plots mean and median vs beta values 
-for C22: see that mean approaches 0.14, alpha = 0.14 = true mean click rate 
-so, smooth parameter mean approaches true mean and median plateaus