library(survival)
data(cancer)
myformula <- Surv(time, status) ~ ph.karno + ph.ecog + age*sex
model <- coxph(myformula , data = lung )
loglinHR( var2values = 40:80
, model = model , data = lung , var1 ="sex", var2="age"
, ci=TRUE , conf = 0.95 , ci.method = "delta")
Run the code above in your browser using DataLab