使用参数时，在创建的函数中获取未使用的参数错误

Question

我在R中创建了一个名为calibrate的函数，调用如下：

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列，一列用于名称，一列用于p值，一列用于层。如您所见，tier_col被设置为3，然后在进入函数时立即检查它是否为空。

当我拨打电话时，我收到以下错误：

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

我不明白这是怎么回事，因为我在输入函数时做的第一件事是调用tier_col变量。

任何帮助/想法？我研究过这个错误无济于事。

谢谢！