data(dataDIVAT2)
# The neural network based from the first 300 individuals of the data base
model <- LIB_PLANN(times="times", failures="failures", data=dataDIVAT2[1:300,],
cov.quanti=c("age"), cov.quali=c("hla", "retransplant", "ecd"),
inter=0.5, size=32, decay=0.01, maxit=100, MaxNWts=10000)
# The predicted survival of the first subject of the training sample
plot(y=model$predictions[1,], x=model$times, xlab="Time (years)",
ylab="Predicted survival", col=1, type="l", lty=1, lwd=2, ylim=c(0,1))
Run the code above in your browser using DataLab