相关函数

Question

我编写了一个函数，它接受数据文件目录和完整案例的阈值，并计算数据集第二和第三列上两个变量（硫酸盐和硝酸盐）之间的相关性，用于监控位置的数量完全观察到的病例大于阈值。 我的函数返回一条警告消息：

in if(n>0){:
the condition has length > 1 and only the first element will be used.

请一直尝试解决此问题无济于事。我是编程新手。非常感谢任何有用的解决方案。

corr <- function(directory, threshold = 0) {
    files <- list.files(directory,full.names = TRUE)
    p <- data.frame()
    for (i in 1:332) {
        p <- rbind(p,read.csv(files[i]))
        r <- c(p[,2])
        s <- c(p[,3])
        n <- p[! is.na(p[,])]
        if (n > threshold) { 
            cor(r,s)
        } else {
            return(0)
        }
    } 
}