Check a list of csv files how many rows without any NA

Assignment1_Part2.R

complete <- function(directory, id = 1:332) {
        #1,create an output matrix
        output <- NULL
        #2,for each id file, calculate NA numbers
        for (i in id){
                num1 <- sprintf("%03d",i)
                path <- paste(directory,num1,".csv",sep="")
                data <- read.csv(path)
                nobs <- 0
                #read each line
                for (j in 1:nrow(data)){
                        if (sum(is.na(data[j,])) == 0){
                                nobs <- nobs +1
                        }
                }
                output <- rbind(output,c(i,nobs) )
        }
        #3, create a new matrix output.
        colnames(output)<- c("id","nobs")
        output
}