### R code from vignette source 'rbsurv.Rnw'

###################################################
### code chunk number 1: rbsurv.Rnw:179-188
###################################################
library(rbsurv)
data(gliomaSet)
gliomaSet
x <- exprs(gliomaSet)
x <- log2(x)
time <- gliomaSet$Time
status <- gliomaSet$Status
z <- cbind(gliomaSet$Age, gliomaSet$Gender)



###################################################
### code chunk number 2: rbsurv.Rnw:195-196
###################################################
fit <-  rbsurv(time=time, status=status, x=x, method="efron", max.n.genes=20)


###################################################
### code chunk number 3: rbsurv.Rnw:208-209
###################################################
fit$model