R, keras: Comment obtenir la sortie d'une couche cachée?

J'utilise le package Kerasdans R pour faire un réseau de neurones. Comment puis-je extraire la sortie d'une couche cachée? J'ai trouvé un exemple en python, mais c'est juste que je n'ai aucune idée de comment faire ça en R.

neural-network r keras

— user7117436
source

Je suis curieux de savoir pourquoi vous devez faire cela? Cherchez-vous à faire quelque chose avec les poids?

— I_Play_With_Data

@I_Play_With_Data Ceci est particulièrement utile lorsque vous entraînez un encodeur automatique et que vous souhaitez extraire la dernière couche de l'encodeur pour la réduction de dimensionnalité.

— David Arenburg

Vous pouvez obtenir la réponse sur https://keras.rstudio.com/articles/faq.html

C'est ici:

model <- ...  # create the original model
layer_name <- 'my_layer'
intermediate_layer_model <- keras_model(inputs = model$input,
                                    outputs = get_layer(model, layer_name)$output)
intermediate_output <- predict(intermediate_layer_model, data)

— Perochkin
source