# NOT RUN {
if (requireNamespaces(c("keras", "pseudo")))
fit <- dnnsurv(data = simsurvdata(10))
# predict survival matrix and relative risks
predict(fit, simsurvdata(10), type = "all")
# return as distribution
if (requireNamespaces("distr6")) {
predict(fit, simsurvdata(10), distr6 = TRUE)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab