R에서 중첩 루프는 여러 파일을 읽는 동안 예상 결과를 반환하지 않습니다.

목표: 완전한 케이스(임계값 인수)에 대한 사용자 정의 기준을 충족하는 여러 파일에 대한 2개 변수 간의 상관 계수를 계산합니다.

데이터: 지정된 디렉토리에 332개의 .csv 파일이 있습니다.

원하는 출력: 파일에 대한 상관 계수가 있는 벡터.

code:

correl <-function(directory= "~/specdata/specdatacsv", threshold= 0) {
  filelist <-list.files(path= directory, pattern= ".csv", full.names= TRUE)
  nobs <-numeric()
  corrvector <-numeric()
  for(i in length(filelist)) {
    data <-read.csv(filelist[i])
    nobs <-sum(complete.cases(data))
    if (nobs <= threshold) { next
    } else {
      nitrate <-as.vector(data$nitrate)
      sulfate <-as.vector(data$sulfate)
      goodSulfate <-complete.cases(sulfate)
      goodNitrate <-complete.cases(nitrate)
      icorr <-cor(goodNitrate, goodSulfate)
      corrvector <-c(corrvector, icorr)
    }
  }
  corrvector
}

임계값 150에 대한 출력은 다음을 반환해야 합니다.

[1] -0.01895754 -0.14051254 -0.04389737 -0.06815956 -0.12350667 -0.07588814

그러나 대신 빈 corrvector가 반환됩니다. 제가 저지른 실수를 찾도록 도와주세요.