R, keras: Bagaimana cara mendapatkan output dari lapisan tersembunyi?

Saya menggunakan paket Kerasdalam R untuk melakukan jaringan saraf. Bagaimana saya mengekstrak output dari lapisan tersembunyi? Saya menemukan contoh dalam python, tetapi hanya saja saya tidak tahu bagaimana melakukannya di R.

neural-network r keras

— pengguna7117436
sumber

Saya ingin tahu mengapa Anda perlu melakukan ini? Apakah Anda ingin melakukan sesuatu dengan beban?

— I_Play_With_Data

@I_Play_With_Data Ini sangat berguna ketika Anda melatih aut-encoder dan Anda ingin mengekstrak lapisan terakhir dari encoder untuk pengurangan dimensi.

— David Arenburg

Anda bisa mendapatkan jawabannya di https://keras.rstudio.com/articles/faq.html

Ini dia:

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
sumber