R函数，如果条件满足，则计算数据帧的两个元素之间的相关性

Question

所以我一直试图让这个功能工作好几天..

功能行为应如下：

1. 去扔一些指定的csv＆＃39; s = id
2. read.csv＆＃39; s并将它们全部放在一个数据帧中
3. 删除所有具有na值的行，并仅保留完整的行。条件1
4. 然后，如果数据总和[row_number，col_1] + data [row_number，col_2]＆gt;阈， 然后我们保留行，否则删除行。
5. 最后将element-1与element-2相关联，并返回已完成的所有相关的列表。

我的代码：

myLineChart.AddData(line_data3,receiver3_time);

我的问题在于步骤5中关联两个元素并返回相关性。

提前感谢您的帮助。

Answer 1

试试这个：

   corr  <- function(directory, threshold = 0) {
     files <- list.files(directory, full.names = T)
     dat2 <- lapply(files, function(x) na.omit(read.csv(x)))
     size <- unlist(lapply(dat2, nrow))
     cors <- lapply(dat2[size > threshold], function(x) cor(x['nitrate'], x['sulfate']))
     res <- unname(unlist(cors)) 
   }