setwd("C:/Documents and Settings/Administrator/Desktop/Coursera/specdata/specdata")temp=list.files(pattern="*.csv")myfiles=lapply(temp,read.delim)summk=0nummk=0for (i in 1:10) { vb=data.frame(myfiles[i]) vbm=as.double(vb) summk=sum(vbm[,2]) nummk=length(vbm[,2]) - sum(is.na(vbm[,2]))} Aditya
[[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.