# NOT RUN {
# Random array of dim 350 x 300
x <- array((rnorm(350*300)), dim = c (350, 300))
s <- c(1, 2)
l <- c(3, 4)
thres <- 0.1
flat <- 25
WOIres <- WOI(x = x, s = s, l = l, thres = thres, flat = flat,
verbose = TRUE)
# original WOI (Brune et al., 2018)
WOIorig <- WOIres$WOIorig
print(paste("Original WOI:", WOIorig))
# modified WOI
WOI <- WOIres$WOI
print(paste("Modified WOI:", WOI))
# local WOI
LWOI <- WOIres$LWOI
par(mfrow = c(1, 2))
image(WOIres$RR, main = "Rain")
image(LWOI, main = "LWOI")
# }
Run the code above in your browser using DataLab