encoder_info <- list(
list("dense", 100, "relu"),
list("dense", 80, "relu")
)
# \donttest{
if (reticulate::py_module_available("tensorflow") &&
exists("training")) {
weights_encoder <- Encoder_weights(
encoder_layers = 2,
trained_model = training$trained_model, #where training = VAE_train(...)
lip_enc = 0,
pi_enc = 0,
BNenc_layers = 0,
learn_BN = 0
)
latent_encoder <- encoder_latent(
encoder_input = data,
encoder_info = encoder_info,
latent_dim = 5,
Lip_en = 0,
power_iterations = 0
)
latent_encoder %>% keras::set_weights(weights_encoder)
}
# }
Run the code above in your browser using DataLab