sites <- c("OAKB")
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_daily_mean <- daily(DATA,time = 'valid')
data_daily_min <- daily(DATA[1:7],time = 'valid',stat = min)
data_daily_max <- daily(DATA[1:7],time = 'valid',stat = max)
Run the code above in your browser using DataLab