head(test)
time Xp Xd cov1 cov2 cov3
1 0.5420801 FALSE TRUE 1.3603882 0.8793241 0
2 3.3030167 FALSE TRUE -0.4426158 0.6815774 0
3 0.6633777 TRUE FALSE -1.6815456 0.9151189 0
4 0.5087542 FALSE TRUE 0.5339077 0.5744313 0
5 1.7777135 FALSE TRUE 0.8002817 0.6301325 1
6 1.6576482 TRUE FALSE 1.0241544 0.6555040 1
Любая помощь с Rcode о том, как оценить lambda_i для Xp и Xd соответственно по данным, используя формулу \ hat {\ lambda} _i = m_i / TTT, где m_i - количество раз, когда наблюдался i-й риски ТТТ = общее время на тесте = сумма всех наблюдаемых времен (не только времени риска i)?