# NOT RUN {
# }
# NOT RUN {
keras_model_sequential() %>%
layer_dense(4, input_shape = c(784)) %>%
compile(
optimizer = 'sgd',
loss=loss_pinball(),
metrics='accuracy'
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab