fix for calculation of sample size (so as to match R CPS.ssize function)

tested the cps_ssize function against the R function CPS.ssize (from clinfun package) and outputs now match up