set.seed(1)
data <- array(rnorm(800), dim = c(dataset = 1, member = 2, sdate = 4,
ftime = 4, lat = 10, lon = 10))
na <- floor(runif(40, min = 1, max = 800))
data[na] <- NA
res <- Eno(data)
Run the code above in your browser using DataLab