R语言中竞争风险模型如何获得中位生存时间？