Estoy tratando de crear una función que enlace distintos data frames y luego calcule la media de una columna en particular. Mi función y los datos son los siguientes:
data_url<-"https://d396qusza40orc.cloudfront.net/rprog%2Fdata%2Fspecdata.zip"
download.file(data_url,"specdata.zip")
unzip("specdata.zip",exdir = "specdata")
specdata<-getwd()
pollutantmean<-function(directory,pollutant,id=1:332){
files_list<-list.files(directory,full.names = TRUE)
dat<-data.frame()
for (i in id) {
dat<-rbind(dat,read.csv(files_list[i]))
}
dat_subset<-dat$pollutant
mean(dat_subset,na.rm = TRUE)
}
Cuando trato de correr la función no hay problemas pero cuando trato de implementarla me arroja el siguiente error:
pollutantmean(specdata,"nitrate",1:10)
[1] NA
Warning message:
In mean.default(dat_subset, na.rm = TRUE) :
argument is not numeric or logical: returning NA
Sin embargo, cuando pruebo cada parte del código por separado me arroja el resultado correcto. ¿Qué puede estar mal?