if (FALSE) {
X <- matrix(rnorm(1000), nrow = 50, ncol = 20)
ae <- autoenc_adv_e(input_size = 20, encoding_size = 5, num_epochs = 50)
ae <- daltoolbox::fit(ae, X) # adversarially-regularized encoder
Z <- daltoolbox::transform(ae, X) # encodings
dim(Z)
}
# See a complete example:
# https://github.com/cefet-rj-dal/daltoolbox/blob/main/autoencoder/autoenc_adv_e.md
Run the code above in your browser using DataLab