data(tLagData)
# full AIPWCC estimator
res <- catProbs(data = tLagData,
ti = "x",
td = c("hospStatus", "daysOut"))
print(x = res)
data(tLagData)
# full AIPWCC estimator
res <- tLagPropOdds(data = tLagData,
ti = "x",
td = c("hospStatus", "daysOut"))
print(x = res)
Run the code above in your browser using DataLab