使用apply函数族简化循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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函数族简化以上双重循环？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：apply函数 apply appl App Data

给你个例子参考下

1. df = data.frame(x=1:3,y=5:7)
   
2. matrix(apply(expand.grid(df[,1],df[,2]),1, function(x) x[1]+x[2]),ncol = 3)

复制代码