###################################################
### chunk number 1: 
###################################################
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: 
###################################################
fit <-  rbsurv(time=time, status=status, x=x, method="efron", max.n.genes=20)


###################################################
### chunk number 3: 
###################################################
fit$model