if (FALSE) {
mydata <- readAntares("all", timeStep = "annual")
synthesize(mydata)
# Add minimum and maximum for all variables
synthesize(mydata, "min", "max")
# Compute a custom statistic for all columns
synthesize(mydata, log = function(x) mean(log(1 + x)))
# Same but only for column "LOAD"
synthesize(mydata,
log = list(fun = function(x) mean(log(1 + x)),
only = "LOAD"))
# Compute the proportion of time balance is positive
synthesize(mydata, propPos = list(fun = function(x) mean(x > 0),
only = "BALANCE"))
# Compute 95% confidence interval for the marginal price
synthesize(mydata,
l = list(fun = "q2.5", only = "MRG. PRICE"),
u = list(fun = "q97.5", only = "MRG. PRICE"))
}
Run the code above in your browser using DataLab