asprine 发表于 2014-5-18 20:41 
两个思路吧:
#1
这个用法当id一数组c(2,4,8,10,12)时报错的,按你的思路,建议可以检查ID是否在id的 ...
complete<- function(directory,id=1:332){
files_list <- dir(directory, full.names=T)[id]
data_list<-lapply(files_list,read.csv)
nobs<-sapply(lapply(data_list,complete.cases),sum)
return (cbind(id,nobs)) }
使用这组代码一直报错:错误于cc$nobs : $ operator is invalid for atomic vectors
求教~~~