sites <- c("OAHR")
for(site in sites){
cat('downloading METAR from:',site,'...\n')
DATA <- riem::riem_measures(station = sites,
date_start = "2012-01-01",
date_end = "2012-02-01")
}
data_hourly_mean <- hourly(DATA,time = 'valid')
data_hourly_min <- hourly(DATA[1:7],time = 'valid',stat = min)
data_hourly_max <- hourly(DATA[1:7],time = 'valid',stat = max)
Run the code above in your browser using DataLab