scr.principal function

Fit CIFs using principal stratum strategy for semicompeting risks data