knitr::opts_chunk$set( collapse = TRUE, fig.height=7, fig.width=7, out.width = "480", comment = "#>" )
Ruta allows creating the neural architecture of autoencoders in several ways. The easiest way is to use an integer vector describing the number of units of each hidden layer in the encoder:
library(magrittr) library(ruta) net <- c(1000, 100) net %>% as_network() %>% print()
The input and output layers have an undetermined size until training data is used and the autoencoder is converted onto a Keras model.
By using separate functions for each layer type, one may define the activations at the output of each layer:
net <- input() + dense(1000, "relu") + dense(100, "tanh") + dense(1000, "relu") + output("sigmoid") print(net) plot(net)
Other available layers are
dropout and other Keras layers via the
act_reg <- layer_keras("activity_regularization", l1 = 0.01) net <- input() + dense(1000, "relu") + dropout() + dense(100, "tanh") + act_reg + dense(1000, "relu") + dropout() + output("sigmoid") print(net) plot(net, log = TRUE, fg = "#30707a", bg = "#e0e6ea")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.