dims <- c(time = 100, lat = 5, lon = 4)
temp <- array(
runif(prod(dims), min = 15, max = 35),
dim = dims
)
R0 <- RNoughtIndices(temp, method = "mordecai", mm = NULL, lon_dim = NULL,
lat_dim = NULL, ncores = NULL)
# Caminade method (requires Kramer matrix)
mm <- array(runif(2 * 5 * 4, 0.1, 1.0),
dim = c(2, 4, 5))
names(dim(mm)) <- c("", "lon", "lat")
R0 <- RNoughtIndices(temp, method = "caminade", mm = mm, lon_dim = "lon",
lat_dim = "lat", ncores = NULL)
Run the code above in your browser using DataLab