if (FALSE) {
# Data required by the function
showAliases("externalDependency")
mydata <- readAntares(select = "externalDependency")
addNetLoad(mydata)
externalDependency(mydata)
# if there are some virtual pumping/storage areas, remove them with
# removeVirtualAreas
mydata <- removeVirtualAreas(mydata, c("pumping", "storage"))
externalDependency(mydata, ignoreMustRun = TRUE)
}
Run the code above in your browser using DataLab