compare {antaresProcessing} | R Documentation |
Compare two simulations or two antaresData
Description
compare
has been designed to compare two surpluses created with function
surplus
but it can be used to compare the values of two tables of
class antaresData
that contain the same type of data.
Usage
compare(x, y, method = c("diff", "ratio", "rate"))
Arguments
x |
Table of class |
y |
Table of class |
method |
Method used two compare the two tables. |
Value
a data.table of class antaresDataTable
. It contains all shared rows and
columns between 'x' and 'y'. The columns contain the statistic chosen:
difference, ratio or rate of change.
Examples
## Not run:
# First simulation
studyPath <- "path/to/study/"
setSimulationPath(studyPath, 1)
mydata1 <- readAntares("all", "all", synthesis = FALSE)
surplus1 <- surplus(mydata1, groupByDistrict = TRUE)
# Second simulation
setSimulationPath(studyPath, 2)
mydata2 <- readAntares("all", "all", synthesis = FALSE)
surplus2 <- surplus(mydata2, groupByDistrict = TRUE)
compare(surplus1, surplus2)
opts1 <- setSimulationPath(studyPath,-1)
mydata1<-readAntares(areas = "all",
links = "all",
select = c("allAreas", "allLinks"),
mcYears = c(1),
linkCapacity = TRUE)
opts2 <- setSimulationPath(studyPath,-2)
mydata2 <- readAntares(areas = "all",
links = "all",
select = c("allAreas", "allLinks"),
mcYears = c(1),
linkCapacity = TRUE)
opts3 <- setSimulationPath(studyPath,-3)
mydata3 <- readAntares(areas = "all",
links = "all",
select = c("allAreas", "allLinks"),
mcYears = c(1),
linkCapacity = TRUE)
opts4 <- setSimulationPath(studyPath, -4)
mydata4 <- readAntares(areas = "all",
links = "all",
select=c("allAreas", "allLinks"),
mcYears = c(1),
linkCapacity = TRUE)
opts5 <- setSimulationPath(studyPath, -5)
mydata5 <- readAntares(areas = "all",
links = "all",
select=c("allAreas", "allLinks"),
mcYears = c(1),
linkCapacity = TRUE)
resCompare1 <- compare(mydata2, mydata1, method = "diff")
resCompare2 <- compare(mydata3, mydata1, method = "diff")
resCompare3 <- compare(mydata4, mydata1, method = "diff")
resCompare4 <- compare(mydata5, mydata1, method = "diff")
listCompare <- list(resCompare1, resCompare2, resCompare3, resCompare4)
for (i in 1:length(listCompare)){
listCompare[[i]] <- removeVirtualAreas(listCompare[[i]],
storageFlexibility =
getAreas(select = c("z_dsr", "y_mul", "pum", "tur")))
}
ml <- readRDS("path/to/mapLayout.rds")
plotMap(listCompare, ml)
## End(Not run)