# \donttest{
model <- ggml_model_sequential() |>
ggml_layer_dense(10, activation = "softmax", input_shape = 4)
model <- compile(model, optimizer = "adam",
loss = "categorical_crossentropy")
# model <- fit(model, x_train, y_train, epochs = 5, batch_size = 32)
# }
Run the code above in your browser using DataLab