R、ケラス：非表示レイヤーの出力を取得する方法は？

KerasRでパッケージを使用してニューラルネットワークを実行しています。非表示レイヤーから出力を抽出するにはどうすればよいですか？Pythonで例を見つけましたが、Rでそれを行う方法がわからないだけです。

neural-network r keras

— user7117436
ソース

なぜこれを行う必要があるのか知りたいのですが。ウェイトを使って何かしようとしていますか？

— I_Play_With_Data

@I_Play_With_Dataこれは、自動エンコーダーをトレーニングし、次元削減のためにエンコーダーの最後のレイヤーを抽出する場合に特に便利です。

— デビッドアレンブルク

あなたはhttps://keras.rstudio.com/articles/faq.htmlで答えを得ることができます

ここにあります：

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)

— ペロチキン
ソース