Displaying 1 result from an estimated 1 matches for "nludwig".
Did you mean:
ludwig
2008 Mar 02
0
new to latex to pdf
...f using pdftex in miktex).
Thanks,
Mike Babyak
Department of Psychiatry and Behavioral Science
Duke University Medical Center
**************************
Here's the code:
library(Hmisc)
library(survival)
getHdata(pbc)
pbc<-upData(pbc, moveUnits=TRUE,
labels=c(stage='Histologic Stage\nLudwig Criteria'))
kmsurv <- function(S, times) {
f <- survfit.km(factor(rep(1,nrow(S))), S)
tt <- c(0, f$time)
ss <- c(1, f$surv) # add first point to survival curve
approx(tt, ss, xout=times, method='constant', f=0)$y
}
describe.survival <- function(y) {
km <- kmsurv(y,...