# \donttest{
model <- ggml_model_sequential() |>
ggml_layer_conv_2d(32, c(3,3), activation = "relu",
input_shape = c(28, 28, 1)) |>
ggml_layer_max_pooling_2d(c(2, 2)) |>
ggml_layer_flatten() |>
ggml_layer_dense(10, activation = "softmax")
model <- ggml_compile(model, optimizer = "adam",
loss = "categorical_crossentropy")
# }
Run the code above in your browser using DataLab