if (FALSE) {
## The following code takes a long time to run:
library(tidyverse)
fvcpath = "https://github.com/SpatLyu/rdevdata/raw/main/FVC.tif"
fvc = terra::rast(paste0("/vsicurl/",fvcpath))
fvc1000 = fvc %>%
terra::as.data.frame(na.rm = T) %>%
as_tibble()
fvc5000 = fvc %>%
terra::aggregate(fact = 5) %>%
terra::as.data.frame(na.rm = T) %>%
as_tibble()
sesu_gozh(fvc ~ .,
datalist = list(fvc1000,fvc5000),
su = c(1000,5000),
cores = 6)
}
Run the code above in your browser using DataLab