x <- as.matrix(sample(iris[, 1:4]))
x_train <- x[1:100, ]
x_test <- x[101:150, ]
# \donttest{
if (interactive() && keras::is_keras_available()) {
autoencoder(2) |>
train(x_train) |>
evaluate_mean_squared_error(x_test)
}
# }
Run the code above in your browser using DataLab