# Simple example with random data
coarse <- array(rnorm(8 * 8 * 10), dim = c(8, 8, 10)) # e.g. lat x lon x time
fine <- array(rnorm(16 * 16 * 10), dim = c(16, 16, 10)) # e.g. lat x lon x time
model <- bcsd(coarse, fine, method = "bilinear", n_quantiles = 100)
coarse_new <- array(rnorm(8 * 8 * 3), dim = c(8, 8, 3)) # e.g. lat x lon x time
predictions <- predict(model, coarse_new)
Run the code above in your browser using DataLab