求Fine&Gray模型)的R代码?

求Fine&Gray模型)的R代码?