if (FALSE) {
setSimulationPath()
areasH <- readAntares(select = "LOAD", synthesis = FALSE, mcYears = 1)
areasD <- readAntares(select = "LOAD", synthesis = FALSE, mcYears = 1, timeStep ="daily")
areasDAgg <- changeTimeStep(areasH, "daily", "hourly")
all.equal(areasDAgg$LOAD, areasD$LOAD)
# Use different aggregation functions
mydata <- readAntares(select = c("LOAD", "MRG. PRICE"), timeStep = "monthly")
changeTimeStep(mydata, "annual", fun = c("sum", "mean"))
}
Run the code above in your browser using DataLab