complete.R

huang — Jan 22, 2013, 8:15 PM

complete <- function(directory, id = 1:332) {
  get_nobs <- function(id,directory){    #calc id's nobs number
    data_tmp <- getmonitor(id,directory)
    data_com <- data_tmp[complete.cases(data_tmp),]
    nobs_nu <- nrow(data_com)
  }
  out <-data.frame(id,nobs=0)   # intitial out as result holder
  out$nobs <- sapply(id,get_nobs,directory)
  return(out)
}