Question

我有以下功能可以提取值并计算相关性。

corr <- function(directory, threshold = 0) {
    getfiles <- list.files(directory, full.names=TRUE) # get all files
    for(i in 1:332){
            file<-read.csv(getfiles[i]) # read files
        end_result<-vector() # create vector
            complete <- sum(complete.cases(file)) # count # complete cases
        CompleteCaseOnly <- na.omit(file) #filter out NA values
            not_complete <-sum(!complete.cases(file))
        if(complete > threshold) {
            nit <- CompleteCaseOnly[,2]
                    suf <- CompleteCaseOnly[,3]
            corr <- cor(nit,suf)#determine correlation
            #print(corr)
                            end_result<-c(end_result, corr)#store in vector
        }   
        }       
 end_result #show_vector
}

我检查过，一切正常。我唯一能做到的就是可以打印向量end_result。当我取消注释print(corr)行时，我得到了相关列表，但我只想输出向量。

当我做fe corr时，有关如何使该函数显示向量的任何线索（＆＃34; Assignment1＆＃34;）？

Answer 1

您应该在end_result循环之外创建for并且还应该避免增长它：end_result <- rep(NA_real_, 332)应该放在循环之前，然后您可以在循环中执行end_result[i] <- corr

在功能中显示矢量

1 个答案: