currstatCIR function

Estimate a survival function under current status sampling