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