# NOT RUN {
net <-
input() +
dense(1000, "relu") + dropout() +
dense(100, "tanh") +
dense(1000, "relu") + dropout() +
output("sigmoid")
plot(net, log = TRUE, fg = "#30707a", bg = "#e0e6ea")
# }
Run the code above in your browser using DataLab