Homework 1 problem 2

programming-assignment-1/complete.R

@@ -0,0 +1,27 @@
+## Write a function that reads a directory full of files and reports the number of completely observed cases in each data file.
+## The function should return a data frame where the first column is the name of the file and the second column is the number of complete cases.
+## A prototype of this function follows
+complete <- function(directory, id = 1:332) {
+
+    ## Get a list of filenames
+    filenames <- list.files(path=directory, pattern="*.csv")
+
+    ids <-vector()
+    counts = vector()
+
+    ## Loop over the passed id's
+    for(i in id) {
+        ## Pad the i to create a filename
+        filename = sprintf("%03d.csv", i)
+        filepath <- paste(directory, filename, sep="/")
+        ## Load the data
+        data <- read.csv(filepath)
+        ##
+        ids = c(ids, i)
+        completeCases = data[complete.cases(data),]
+        counts = c(counts, nrow(completeCases))
+    }
+
+    dt <- data.frame(id=ids, nobs=counts)
+    dt
+}