I tried your alternative method on the example in cch() description manual.
The example data "nwtco" has not time-dependent covariates yet. I test cch()
and coxph() on the same data. But the estimation result is different. I
don't know if I did anything wrong.
subcoh <- nwtco$in.subcohort
selccoh <- with(nwtco, rel==1|subcoh==1)
ccoh.data <- nwtco[selccoh,]
ccoh.data$subcohort <- subcoh[selccoh]
## central-lab histology
ccoh.data$histol <- factor(ccoh.data$histol,labels=c("FH","UH"))
## tumour stage
ccoh.data$stage <- factor(ccoh.data$stage,labels=c("I","II","III","IV"))
ccoh.data$age <- ccoh.data$age/12 # Age in years
fit.ccSP <- cch(Surv(edrel, rel) ~ stage + histol + age, data =ccoh.data,
subcoh = ~subcohort, id=~seqno, cohort.size=4028, method="SelfPren")
fit2.ccP <- coxph(Surv(edrel, rel) ~ stage + histol + age +
offset(-100*subcohort)+cluster(seqno),data =ccoh.data)
> fit2.ccP
Call:
coxph(formula = Surv(edrel, rel) ~ stage + histol + age + offset(-100 *
subcohort) + cluster(seqno), data = ccoh.data)
coef exp(coef) se(coef) robust se z p
stageII -0.1245 0.883 0.1236 0.1371 -0.908 0.3600
stageIII 0.0193 1.020 0.1252 0.1517 0.127 0.9000
stageIV 0.2997 1.350 0.1370 0.1509 1.986 0.0470
histolUH 0.3518 1.422 0.0920 0.1092 3.223 0.0013
age -0.0281 0.972 0.0144 0.0168 -1.678 0.0930
Likelihood ratio test=34.5 on 5 df, p=1.89e-06 n= 1154
> summary(fit.ccSP)
Case-cohort analysis,x$method, SelfPrentice
with subcohort of 668 from cohort of 4028
Call: cch(formula = Surv(edrel, rel) ~ stage + histol + age, data =
ccoh.data,
subcoh = ~subcohort, id = ~seqno, cohort.size = 4028, method =
"SelfPren")
Coefficients:
Coef HR (95% CI) p
stageII 0.736 2.088 1.491 2.925 0.000
stageIII 0.597 1.818 1.285 2.571 0.001
stageIV 1.392 4.021 2.670 6.057 0.000
histolUH 1.506 4.507 3.274 6.203 0.000
age 0.043 1.044 0.996 1.095 0.069
2008/6/12 Terry Therneau <[EMAIL PROTECTED]>:
> ----- begin included message
> In case cohort study, we can fit proportional hazard regression model to
> case-cohort data. In R, the function is cch() in Survival package
> Now I am working on case cohort analysis with time dependent covariates
> using cch() of "Survival" R package. I wonder if cch() provide this utility
> or not?
> The cch() manual does not say if time dependent covariate is allowed
> I know coxph() in Survival package can estimate time dependent covariates.
> ------ end inclusion -----------------------------------------------
>
> The cch function was added to the package by Breslow and Lumley, neither
> of
> which appears to be monitoring the list lately. Since it claims to
> impliment
> the methods in Li and Therneau, and I don't know the cch code, let me
> suggest an
> alternate way to create your fit:
> Assume that your data set has the ususal coxph variables, including
> time-dependent covariates as multiple observations per subject using
> (start,
> stop) style, along with 2 other variables
> id = a unique identifier per subject
> case = 0 if the subject is a member of the random subcohort
> 1 if the subject is a case (an event from outside the
> subcohort)
>
> Then
> coxph(Surv(time1, time2, status) ~ x1 + x2+ .... + offset(-100*case) +
> cluster(id), data=mydata)
>
> Will fit the case-cohort model. This correctly allows for time-dependent
> covariates. It corresponds to the "Self" method of cch.
> Why -100? It causes the case to have a relative weight of approx 0 in a
> particular weighted mean; exp(-100) is small enough and doesn't cause
> trouble
> for the exp function.
>
> Terry Therneau
>
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
