Блог

Я написал функцию, которая предназначена для извлечения средних значений количества частиц в воздухе. Однако код работает отлично, если аргумент Id определен как что-либо ниже «1:279», функция выдает результат NaN.

 Pollutantmean <- function(directory, pollutant, id = 1:332) 
{
Airpoll <- list.files(path = directory, pattern = "*.csv", full.names = TRUE) %>%
   lapply(read.csv) %>%
   bind_rows
Sig_data <- Airpoll[id, pollutant]
mean(Sig_data, na.rm = TRUE)
}