Add function to obtain MLE parameter of upper-truncated geometric