# NOT RUN {
x <- genClaytonReg(1000, 2, 0.5, 1, 1, log(2), log(2), log(8/3), 2, 2)
x.cox2 <- cox2(x$Y1, x$Y2, x$Delta1, x$Delta2, x$X)
x.LF <- cox2.LF(x.cox2, 0, 1, c(0.25, 0.5, 1), c(0.25, 0.5, 1))
# }
# NOT RUN {
x.LF.CI <- cox2.LF(x.cox2, 0, 1, c(0.25, 0.5, 1),
c(0.25, 0.5, 1), confidence="CI")
# }
# NOT RUN {
x.LF.CB <- cox2.LF(x.cox2, 0, 1, c(0.25, 0.5, 1),
c(0.25, 0.5, 1), confidence="CB")
# }
Run the code above in your browser using DataLab