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