TestData <- read.table(file=filename,header=T)

NumRow <- nrow(TestData)
NumCol <- ncol(TestData)

CriticalValueMatrix <- matrix(data=NA,nrow=NumRow,ncol=NumRow,byrow=FALSE,dimnames=NULL)

  for(i in 1:(NumRow-1)){
    for(j in 1:(NumRow-i)){
      CriticalValueMatrix[i,j]=CriticalValue(i,j,alpha)
    }
  }

此处CriticalValue为自定义的一个函数，参数为i,j,alpha,返回一个数值。
请问应如何使用apply函数族简化以上双重循环？