# NOT RUN {
if (interactive()) {
# Read specific weighting area at a given year
w <- read_weighting_area(code_weighting=5201108005004, year=2010)
# Read all weighting areas of a state at a given year
w <- read_weighting_area(code_weighting=53, year=2010) # or
w <- read_weighting_area(code_weighting="DF", year=2010)
plot(w)
# Read all weighting areas of a municipality at a given year
w <- read_weighting_area(code_weighting=5201108, year=2010)
plot(w)
# Read all weighting areas of the country at a given year
w <- read_weighting_area(code_weighting="all", year=2010)
}
# }
Run the code above in your browser using DataLab