# \donttest{
model <- ag_sequential(
ag_linear(4L, 16L, activation = "relu"),
ag_dropout(0.5),
ag_linear(16L, 2L, activation = "softmax")
)
x <- ag_tensor(matrix(runif(4 * 8), 4, 8))
out <- model$forward(x)
# }
Run the code above in your browser using DataLab