# Sample convolutional autoencoder
net <- input() +
conv(16, 3, max_pooling = 2, activation = "relu") +
conv(8, 3, max_pooling = 2, activation = "relu") +
conv(8, 3, upsampling = 2, activation = "relu") +
conv(16, 3, upsampling = 2, activation = "relu") +
conv(1, 3, activation = "sigmoid")
Run the code above in your browser using DataLab