R, keras: ¿Cómo obtener la salida de una capa oculta?

Estoy usando el paquete Kerasen R para hacer una red neuronal. ¿Cómo puedo extraer el resultado de una capa oculta? Encontré un ejemplo en Python, pero es que no tengo idea de cómo hacerlo en R.

neural-network r keras

— usuario7117436
fuente

Tengo curiosidad por saber por qué necesitas hacer esto. ¿Estás buscando hacer algo con las pesas?

— I_Play_With_Data

@I_Play_With_Data Esto es particularmente útil cuando entrena un codificador automático y desea extraer la última capa del codificador para reducir la dimensionalidad.

— David Arenburg el

Puede obtener la respuesta en https://keras.rstudio.com/articles/faq.html

Aquí 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
fuente