# Load sample data as in Load() example:
set.seed(1)
exp1 <- array(rnorm(120), dim = c(dataset = 3, sdate = 5, ftime = 2, lon = 1, lat = 4))
set.seed(2)
obs1 <- array(rnorm(80), dim = c(dataset = 2, sdate = 5, ftime = 2, lon = 1, lat = 4))
set.seed(2)
na <- floor(runif(10, min = 1, max = 80))
obs1[na] <- NA
res <- RMS(exp1, obs1, comp_dim = 'ftime')
# Renew example when Ano and Smoothing are ready
Run the code above in your browser using DataLab