使用 mapply 对多对进行 cor.test

如何解决使用 mapply 对多对进行 cor.test

之前对 similar question 的回答存在 cor.test 输出不正确的问题，必须修复相同的问题（下面的代码）。但是，我使用 while 循环来提取所有 cor.test 结果而不是 mapply。有人可以帮忙解决映射错误。

correl.func <- function(var1,var2,x,data) { 
#need to introduce X for proper subseting of the df(data param in function)
    x1=as.character(var2[x]) 
    y1=as.character(var1[x])
  result = cor.test(data[,x1],data[,y1])
  data.frame(dependent=c(y1),independent=c(x1),result[c("estimate","p.value","statistic","method")],stringsAsFactors=FALSE)
}

vars= data.frame(v1=names(selected.df.cor)[1],v2=names(selected.df.cor)[-1]) #corellation pairs

x = 1
df.cor.test = data.frame()
while (x<=6){
    
    corell.func.output.df=correl.func(vars[,1],vars[,2],x=x,selected.df_cor)
    df.cor.test=rbind(df.cor.test,corell.func.output.df)
    x=x+1
}

do.call(rbind,(mapply(correl.func,c(1:6),MoreArgs=list(data=selected.df.cor),SIMPLIFY=FALSE)))

#error for the do.call,mapply
Error in `[.data.frame`(data,x1): undefined columns selected