threshold <- 0.9
data <- array(rnorm(25 * 3 * 214 * 2, mean = 26),
c(member = 25, sdate = 3, time = 214, lon = 2))
thres_q <- Threshold(data, threshold)
data <- array(rnorm(1 * 3 * 214 * 2), c(member = 1, sdate = 3, time = 214, lon = 2))
res <- Threshold(data, threshold)
Run the code above in your browser using DataLab