R で競合リスク・モデル