Keras相關系數作為R中的度量

Question

有誰知道如何使用相關系數或平方相關系數作為 R 中 keras 的度量（盡管其他語言可能提供線索）。 這適用於功能類似於圖像壓縮器/解壓縮器的 CNN。 謝謝！

Answer 1

也在為同樣的問題而苦苦掙扎。 這是我使用 keras 后端函數的自定義指標。

  metric_correlation <- 
custom_metric("correlation", 
              function(y_true, y_pred){
                k_sqrt(k_sum((y_pred-k_mean(y_pred))*(y_true-k_mean(y_true)))/length(y_true))/
                  k_sqrt(k_var(y_true))/k_sqrt(k_var(y_pred))
              })
                                          
  model %>% compile(loss = 'mean_squared_error', optimizer = 'adam',metrics = metric_correlation)

不過有些不對勁 - 隨着時代的增加，相關性下降