-1
我有很多問題,因爲我的if()
聲明中沒有任何內容適用。我只是從一個單一的價值中獲得價值,或者根本沒有價值,而且我期望每次滿足我的條件時都會有一個具有多個值的向量。我的if()聲明中沒有任何內容
corr <- function(directory, threshold = 0, a = 0) {
y <- vector()
for(i in 332) {
x <- read.csv(paste("D:\\", directory, "\\", formatC(i, width = 3, flag = "0"), ".csv", sep = ""))
z <- x[complete.cases(x),]
n <- cor(z$sulfate,z$nitrate)
if(nrow(z) > threshold) {
a <- a + 1
y[a] <- n
}
}
return(y)
}
請提供可重複的數據集。 –
檢查[錯誤如果在R中的說法](http://stackoverflow.com/questions/32053436/error-in-if-statment-in-r) –