R.PGEOM(x,psuc,lower_tail,log_p)
x: observation
psuc: the probability of success in each trial
lower_tail: if true (the default), the lower tail of the distribution is considered
log_p: if true, log of the probability is used
This function returns the cumulative distribution function of the geometric distribution.