r - HydroGOFパッケージを使用してグループごとにナッシュ・サトクリフ効率を取得するには?

Question

変数でグループ化された NSE 値を取得しようとしています。私は次のようなことを試しました：

library(dplyr)
library(hydroGOF)

mtcars %>% group_by(cyl) %>% 
  NSE(wt,drat)

なぜ機能しないのですか？「wt」が見つかりません。ありがとうございました。

Answer 1

を使用したアプローチは次のsummariseとおりです。

mtcars %>% 
  group_by(cyl) %>%
  summarise(NSE = NSE(wt, drat))
# A tibble: 3 x 2
    cyl    NSE
  <dbl>  <dbl>
1     4 -30.2 
2     6  -2.22
3     8 -10.2 

あなたが機能しなかった理由%>%は、前の関数の出力を次の最初の引数にリダイレクトするためです。したがって、あなたのものは と同等でしNSE(mtcars,wt,drat)た。wtはグローバル環境で定義されていないため、見つかりませんでした。