# \donttest{
# load the grid data
grid_data <- flexurba::DoU_load_grid_data_belgium()
# load the units and filter for West-Flanders
units_data <- flexurba::units_belgium %>%
dplyr::filter(GID_2 == "30000")
# classify the grid
classification <- DoU_classify_grid(data = grid_data)
# preprocess the data for units classification
data1 <- DoU_preprocess_units(
units = units_data,
classification = classification,
pop = grid_data$pop,
resample_resolution = 50
)
# preprocess the data for units classification at level 3 (Belgian districts)
data2 <- DoU_preprocess_units(
units = units_data,
classification = classification,
pop = grid_data$pop,
resample_resolution = 50,
dissolve_units_by = "GID_3"
)
# }
Run the code above in your browser using DataLab