r - 引数が使用されているときに、作成された関数で未使用の引数エラーを取得する

Question

calibrate次の呼び出しで、R で という関数を作成しました。

calibrate<-function(prior, p1=NULL, p2=NULL, p3=NULL, q13, q23, 
          accuracy=1e-7, sol=4, data, name_col=1, pval_col=2, tier_col=NULL)

この関数で最初に発生することは次のとおりです。

  if(!is.null(tier_col))
  {
    work<-as.data.frame(table(data[tier_col]))

    p1<-work[,2][work[1]==1]
    p2<-work[,2][work[1]==2]
    p3<-work[,2][work[1]==3]
  }

この後、他にも多くのことが起こりますが、関数はこれを乗り越えていません。

私が行っている呼び出しは次のとおりです。

calibrate(prior=0.10, q13=3, q23=2, accuracy=1e-7, sol=4, 
      data=read.csv("C:/Users/C191131/Desktop/calibrate_test.csv"),
      name_col=1, pval_col=2, tier_col=3)

ここで、データ ファイルには 3 つの列があり、1 つは名前用、1 つは pvalue 用、もう 1 つは層用です。ご覧のとおり、tier_colは 3 に設定されており、関数に入るとすぐに null かどうかを確認する必要があります。

電話をかけると、次のエラーが表示されます。

Error in calibrate(prior = 0.1, q13 = 3, q23 = 2, accuracy = 1e-07, sol = 4,  : 
      unused argument (tier_col = 3)

tier_col関数に入るときに最初に行うことは変数の呼び出しであるため、これがどのように発生するのかわかりません。

ヘルプ/アイデアはありますか? 私はこのエラーを無駄に調査しました。

ありがとう！！