View source: R/neg_create_model.R
neg_create_model | R Documentation |
neg_create_model(input)
input |
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (input)
{
model <- keras_model_sequential()
model %>% layer_dense(units = 256, activation = "relu", input_shape = input) %>%
layer_dropout(rate = 0.4) %>% layer_dense(units = 128,
activation = "relu") %>% layer_dropout(rate = 0.3) %>%
layer_dense(units = 2, activation = "softmax")
model %>% compile(loss = "binary_crossentropy", optimizer = optimizer_rmsprop(),
metrics = c("accuracy"))
model
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.