library(survival)
# generate some data
x=matrix(rnorm(200*1000),ncol=1000)
y=abs(rnorm(200))
x[y>median(y),1:50]=x[y>median(y),1:50]+3
status=sample(c(0,1),size=200,replace=TRUE)
# fit uniCox model
a=uniCox(x,y,status)
# do cross-validation to examine choice of lambda
aa=uniCoxCV(a,x,y,status)
Run the code above in your browser using DataLab