data(dataK) # the database with the observed sample
tune.sPLANN <- cvPLANN(Surv(time, event)~ stade + delay, data=dataK, cv=3,
inter=365.241, size=c(2, 4), decay=c(0.01))
tune.sPLANN$optimal
Run the code above in your browser using DataLab