if (FALSE) {
library(antaresEditObject)
path <- pathToYourStudy
opts <- setSimulationPath(path, simulation = "input")
# area, unit, nominalCapacity and marginalCost
dsrData <- data.frame(area = c("a", "b"), unit = c(10,20),
nominalCapacity = c(100, 120), marginalCost = c(52, 65), hour = c(3, 7))
createDSR(dsrData)
createDSR(dsrData, spinning = 3, overwrite = TRUE)
getAreas()
}
if (FALSE) {
getCapacityDSR("a")
editDSR("a", unit = 50, nominalCapacity = 8000)
getCapacityDSR("a")
}
if (FALSE) {
getCapacityDSR("a")
editDSR("a", unit = 50, nominalCapacity = 8000, marginalCost = 45, hour = 9)
getCapacityDSR("a")
}
Run the code above in your browser using DataLab