################################################### ### chunk number 1: ################################################### #line 180 "vignettes/rbsurv/inst/doc/rbsurv.Rnw" library(rbsurv) data(gliomaSet) gliomaSet x <- exprs(gliomaSet) x <- log2(x) time <- gliomaSet$Time status <- gliomaSet$Status z <- cbind(gliomaSet$Age, gliomaSet$Gender) ################################################### ### chunk number 2: ################################################### #line 196 "vignettes/rbsurv/inst/doc/rbsurv.Rnw" fit <- rbsurv(time=time, status=status, x=x, method="efron", max.n.genes=20) ################################################### ### chunk number 3: ################################################### #line 209 "vignettes/rbsurv/inst/doc/rbsurv.Rnw" fit$model