R, keras: Como obter a saída de uma camada oculta?

Estou usando o pacote Kerasno R para fazer uma rede neural. Como posso extrair a saída de uma camada oculta? Encontrei um exemplo em python, mas não sei como fazer isso em R.

neural-network r keras

— user7117436
fonte

Estou curioso para saber por que você precisa fazer isso? Você está procurando fazer algo com os pesos?

— I_Play_With_Data 06/03

@I_Play_With_Data Isso é particularmente útil quando você treina um codificador automático e deseja extrair a última camada do codificador para reduzir a dimensionalidade.

— David Arenburg

Você pode obter a resposta em https://keras.rstudio.com/articles/faq.html

Aqui está:

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