# \donttest{
inp <- ggml_input(shape = 10L, dtype = "int32")
out <- inp |>
ggml_layer_embedding(vocab_size = 1000L, dim = 32L) |>
ggml_layer_flatten() |>
ggml_layer_dense(10L, activation = "softmax")
model <- ggml_model(inputs = inp, outputs = out)
# }
Run the code above in your browser using DataLab