Stat. 654 Handout


```{r}
network <- keras_model_sequential() %>% 
  layer_dense(units = 512, activation = "relu", input_shape = c(28 * 28)) %>% 
  layer_dense(units = 10, activation = "softmax")
```

```{r}
network <- keras_model_sequential() %>% 
  layer_dense(units = 512, activation = "relu", input_shape = c(28 * 28)) %>% 
    layer_dropout(rate = 0.4) %>% 
  layer_dense(units = 128, activation = "relu") %>%
    layer_dropout(rate = 0.3) %>%
  layer_dense(units = 10, activation = "softmax")
```