#Uses data set breast from package coxphf.
data(breast)
xmat<-as.matrix(breast)[order(breast$TIME),c("T","N")]
ind<-breast$CENS[order(breast$TIME)]
short<-coxph(Surv(TIME,CENS)~ T+ N,data=breast)
pllk(as.vector(coef(short)),xmat,ind)
Run the code above in your browser using DataLab