# NOT RUN {
data(dogs)
cls <- c("blue3", "orange", "skyblue", "darkgreen", "yellow3", "black")
PlotImmigrationFlow(dogs, "acquisition_city", "Pinhais",
cls = cls, agg.sources.suffix = " cities")
# }
Run the code above in your browser using DataLab