# NOT RUN {
data(infert, package="datasets")
print(net.infert <- neuralnet(case~parity+induced+spontaneous,
infert, err.fct="ce", linear.output=FALSE))
confidence.interval(net.infert)
# }
Run the code above in your browser using DataLab