## ----setup, include=FALSE-----------------------------------------------------
library(BioMoR)
set.seed(99)

## ----eval=FALSE---------------------------------------------------------------
# # Example: training a stub autoencoder and obtaining embeddings
# 
# data(iris)
# feature_cols <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
# 
# ae <- train_autoencoder(iris, feature_cols = feature_cols, epochs = 10)
# emb <- get_embeddings(ae, iris, feature_cols = feature_cols)
# 
# str(emb)