if (FALSE) {
# Assume we have a network with two virtual areas acting as pump storage and
# an area representing offshore production
#
# offshore
# |
# real area - psp in
# \
# psp out
#
data <- readAntares(areas="all", links="all")
# Remove pump storage virtual areas
correctedData <- removeVirtualAreas(
x = data,
storageFlexibility = c("psp in", "psp out"),
production = "offshore"
)
correctedData_list <- removeVirtualAreas(
x = data,
storageFlexibility = list(PSP = c("psp in", "psp out")),
production = "offshore"
)
correctedData_details <- removeVirtualAreas(
x = data,
storageFlexibility = list(PSP_IN = "psp in", PSP_OUT = "psp out"),
production = "offshore"
)
}
Run the code above in your browser using DataLab