Páginas

domingo, 14 de septiembre de 2014

R: Proyecto de Coursera 'Pollutantmean'

Este es el primer deber, así lo hice:

pollutantmean = function(directory, pollutant, id = 1:332){
 
  file_list = list.files(directory)
 
  for (file in file_list) {
    if (!exists("data_frame")) {
      data_frame = read.csv(paste(directory,"/", file, sep = ""), header= TRUE)
       
    } else {
      temp_data = read.csv(paste(directory,"/", file, sep=""), header = TRUE)
      data_frame = rbind(data_frame, temp_data)
      rm(temp_data)
           
    }
   
  }
 
  good = complete.cases(data_frame)
  complete_data_frame = data_frame[good, ]
 
  monitor_filter = subset(complete_data_frame, ID %in% id)
 
  mean(monitor_filter[, pollutant])
}

No hay comentarios:

Publicar un comentario