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)

虽然有些不对劲 - 随着时代的增加，相关性下降