library(rbsurv)
data(gliomaSet)
x <- exprs(gliomaSet)
x <- log2(x)
time <- gliomaSet$Time
status <- gliomaSet$Status
z <- cbind(gliomaSet$Age, gliomaSet$Gender)
fit <- rbsurv(time=time, status=status, x=x, method="efron", max.n.genes=20, n.iter=10, n.fold=3, n.seq=1)
fit$model
Run the code above in your browser using DataLab