我正在编写一个 R 函数,它读取一个充满文件的目录并报告每个数据文件中完全观察到的案例的数量。该函数返回一个数据框,其中第一列是文件名,第二列是完整案例的数量。
如,
id nobs
1 108
2 345
...
etc
这是我写的函数:
complete <- function(directory, id = 1:332) {
for(i in 1:332) {
path<-paste(directory,"/",id,".csv",sep="")
mydata<-read.csv(path)
#nobs<-nrow(na.omit(mydata))
nobs<-sum(complete.cases(mydata))
i<-i+1
}
completedata<-c(id,nobs)
}
我执行功能:
complete("specdata",id=1:332)
但我收到此错误:
Error in file(file, "rt") : invalid 'description' argument
我还尝试了traceback()
调试代码的函数,它给出了以下输出:
traceback()
# 4: file(file, "rt") at #6
# 3: read.table(file = file, header = header, sep = sep, quote = quote,
# dec = dec, fill = fill, comment.char = comment.char, ...) at #6
# 2: read.csv(path) at #6
# 1: complete("specdata", id = 1:332)