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