# NOT RUN {
library(purrr)
x <- as.matrix(sample(iris[, 1:4]))
x_train <- x[1:100, ]
x_test <- x[101:150, ]
# }
# NOT RUN {
autoencoder(2) %>%
train(x_train) %>%
evaluate_mean_squared_error(x_test)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab