Displaying 1 result from an estimated 1 matches for "aent".
Did you mean:
adent
2008 Jul 15
0
implementation of Prentice method in cch()
...t[cc==2]-eps
fit1 <- coxph(Surv(ent2,texit,cens)~X,eps=eps,x=TRUE)
## Calculate Prentice estimate and variance
nd <- sum(cens) # Number of failures
nc <- sum(subcoh) # Number in subcohort
ncd <- sum(cc==1) #Number of failures in subcohort
X <- as.matrix(X)
aent <- c(tenter[cc>0],tenter[cc<2])
aexit <- c(texit[cc>0],texit[cc<2])
aX <- rbind(as.matrix(X[cc>0,]),as.matrix(X[cc<2,]))
aid <- c(id[cc>0],id[cc<2])
dum <- rep(-100,nd)
dum <- c(dum,rep(0,nc))
gp <- rep(1,nd)
gp <- c(gp,rep...