рноаа петля давления воздуха - PullRequest
Новая
       55

рноаа петля давления воздуха

0 голосов
/ 14 мая 2019

Пакет rnoaa позволяет собирать информацию о давлении воздуха только за 30 дней https://cran.r -project.org / web / packages / rnoaa / rnoaa.pdf .Я ищу, чтобы создать функцию / цикл для извлечения данных из пакета в месяц за раз.Конкретный формат даты, который требуется, ГГГГММДД.Нет - илиЯ начал с функции, но, судя по всему, проблема в том, что она не применяется к функции для вызова данных о давлении воздуха.

Я пробовал циклы во многих отношениях, и, похоже, я не могу их получить.,Вот пример. 

for (i in dates)) {
  air_pressure[i] <- coops_search(begin_date = start[i], end_date = end[i], 
   station_name = 8727520, product= "air_pressure", units = "metric", time_zone = "gmt")
  print(air_pressure[i])
}

start<-seq(as.Date("2015/01/01"), by = "month", length.out = 100)
start <- as.numeric(gsub("-","",start))

end<-seq(as.Date("2015/02/01"), by = "month", length.out = 100)
end <- as.numeric(gsub("-","",end))

pressure_function<- function(air_pressure) { 
     coops_search(station_name = 8727520, begin_date = starting,
               end_date = ending, product = "air_pressure")
}

lapply(pressure_function, starting= start, ending= end, FUN= sum)

Нет реальных сообщений об ошибках, просто не заполняйте и не запускайте функцию.

...