相关函数总是NA

Question

我正在尝试找到与此函数的相关性，但我只是为每个输入获得NA：

corr <- function(directory, threshold = 0) {

  filenames <- list.files(directory, pattern="*.csv", full.names=TRUE)
  csv <- lapply(filenames, read.csv)

  correlations <- c()
  c(correlations, lapply(csv, function(x){
    cor(x$nitrate,x$sulfate) 
    print(cor(x$nitrate,x$sulfate))
  }))

  correlations  
}

如果我更改了打印硝酸盐和硫酸盐的功能，它实际上有值，如果我只是将x传递给cor函数，它会抱怨非数值。

为什么它总是打印NA而不是实际的相关性？

Answer 1

函数cor有一个参数use，它控制着如何处理缺失的观察结果，即NA。您可以尝试将其设置为use = "complete.obs"。