# Basic plot
graphicalExtremes::plotDanube()
# Plot flow volumes
graphicalExtremes::plotDanube(
clipMap = 1.2,
useConnectionVolume = TRUE,
useStationVolume = TRUE
)
# Plot other graph structures
nStations <- nrow(graphicalExtremes::danube$info)
g <- igraph::erdos.renyi.game(nStations, nStations, 'gnm')
graphicalExtremes::plotDanube(
clipMap = 1.2,
graph = g
)
Run the code above in your browser using DataLab