# No example data is available over NAO region, so in this example we will
# tweak the longitude and latitude.
ano <- s2dv::Ano_CrossValid(map_temp$exp, map_temp$obs, memb = FALSE,
dat_dim = c('dat', 'member'), memb_dim = 'member')
nao <- s2dv::NAO(ano$exp, ano$obs, lat = seq(20, 80, length.out = 11),
lon = seq(-80, 40, length.out = 16), memb_dim = "member",
ftime_dim = "time")
nao$exp <- drop(aperm(nao$exp, c(2, 1, 3, 4)))
nao$obs <- drop(nao$obs)
VizBoxWhisker(nao$exp, nao$obs, toptitle = "NAO index",
ytitle = "NAO index (PC1) TOS", monini = 11, freq = 1,
yearini = 2000, expname = "SEAS5", obsname = "ERA5")
Run the code above in your browser using DataLab