R, keras: come ottenere l'output di un livello nascosto?

Sto usando il pacchetto Kerasin R per fare una rete neurale. Come posso estrarre l'output da un livello nascosto? Ho trovato un esempio in Python, ma è solo che non ho idea di come farlo in R.

neural-network r keras

— user7117436
fonte

Sono curioso di sapere perché devi farlo? Stai cercando di fare qualcosa con i pesi?

— I_Play_With_Data

@I_Play_With_Data Questo è particolarmente utile quando si allena un auto-codificatore e si desidera estrarre l'ultimo strato dell'encoder per la riduzione della dimensionalità.

— David Arenburg,

Puoi ottenere la risposta su https://keras.rstudio.com/articles/faq.html

Ecco qui:

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
fonte