my_network <- new_network(
new_layer("input", 784, "linear"),
new_layer("dense", 32, "tanh"),
new_layer("dense", 784, "sigmoid")
)
# Instead, consider using
my_network <- input() + dense(32, "tanh") + output("sigmoid")
Run the code above in your browser using DataLab