# NOT RUN {
set.seed(123)
require(ELMSurv)
require(survival)
#Lung DATA
data(lung)
lung=na.omit(lung)
lung[,3]=lung[,3]-1
n=dim(lung)[1]
L=sample(1:n,ceiling(n*0.5))
trset<-lung[L,]
teset<-lung[-L,]
rii=c(2,3)
# with RBF kernel
elmsurvmodel=ELMBJEN(x=trset[,-rii],y=Surv(trset[,rii[1]],trset[,rii[2]]),
trlength=10,Kernel_type="RBF_kernel",Kernel_para=c(2,1))
#The second base model
fit2=elmsurvmodel$elmcoxfit[[2]]
#The predicted survival
testprelin=predict(elmsurvmodel,teset[,-c(rii)])
# }
Run the code above in your browser using DataLab