tas_data <- array(rnorm(1000, mean = 25, sd = 5),
dim = c(
dat = 1, var = 1, sday = 1, sweek = 1,
syear = 5, time = 2, latitude = 10, longitude = 10, ensemble = 1
)
)
tas_cube <- list(
data = tas_data,
dims = dim(tas_data),
coords = list(
dat = 1, var = 1, sday = 1, sweek = 1,
syear = 1:5, time = 1:2,
latitude = seq(40, 49, length.out = 10),
longitude = seq(-10, -1, length.out = 10),
ensemble = 1
),
attrs = list(Variable = list(varName = "tas"))
)
class(tas_cube) <- "s2dv_cube"
prlr_data <- array(abs(rnorm(1000, mean = 50, sd = 20)),
dim = c(
dat = 1, var = 1, sday = 1, sweek = 1,
syear = 5, time = 2, latitude = 10, longitude = 10, ensemble = 1
)
)
prlr_cube <- list(
data = prlr_data,
dims = dim(prlr_data),
coords = tas_cube$coords,
attrs = list(Variable = list(varName = "prlr"))
)
class(prlr_cube) <- "s2dv_cube"
result <- CST_MultiVarExceedingThreshold(
data = list(tas_cube, prlr_cube),
operators = list(c(">", "<="), ">"),
thresholds = list(c(20, 30), 40)
)
Run the code above in your browser using DataLab