data(dataK)
splann <- sPLANN(Surv(time, event) ~ sex + stade + delay, data=dataK, inter=365.241,
size=32, decay=0.01, maxit=200, MaxNWts=10000)
dnew <- data.frame(sex=c(1,2), delay=c(0,0), stade=c(0,0))
pred <- predict(splann, newdata = dnew)
# Predictions for a men or a women with no delay at the diagnostic of non-agressive cancer
plot(pred$times, c(pred$predictions[1,]), ylab="Patient survival",
xlab="Post-diagnosis time in years", type="l")
lines(pred$times, c(pred$predictions[2,]), type="l", col=2)
Run the code above in your browser using DataLab