simple_oslo.R 988 Bytes
Newer Older
Jean-Marie Lepioufle's avatar
Jean-Marie Lepioufle committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

tmp <- aqoslogen::simple_concentration_on_stations(from="2015/01/01 00:00:00",to="2018/12/31 23:00:00",timeResolution="hourly",
                                                   max_mean_emission=60,spatial_range_normal=500,
                                                   max_mean_advection_intensity=0.1,max_mean_advection_degree=360,
                                                   seed=123)

target <- c("NO2_7","NO2_464", "NO2_827", "NO2_665", "NO2_9", "NO2_11", "NO2_163", "NO2_504","NO2_809")
tmp <- friendlyts::dfts(tbl_fts=tmp,timeResolution="hourly",tzone="UTC")
tmp <- tibble::as_tibble(dplyr::select(tmp,c("date",target)))
names(tmp) <- c("date","7","464", "827", "665", "9", "11", "163", "504","809")

# gather
df <- tmp %>% tidyr::gather("ID", "value", -"date")

aqoslosynth <- dplyr::bind_cols(df,CO_NAME=rep("NO2",nrow(df)),unit=rep("ug/m3",nrow(df)),timeResolution=rep("hourly",nrow(df)),)

save(aqoslosynth,file="aqoslosynth.rda",compress="xz")