Nothing
pkgload::load_all()
createStudy(path = "../etude_antares/", study_name = "ntc006", antares_version = 820)
opt <- setSimulationPath("../etude_antares/ntc006/")
createArea(name = "area01", localization = c(-100, -100))
createArea(name = "area02", localization = c(1, 1))
createArea(name = "area03", localization = c(100, 100))
createArea(name = "area04", localization = c(0, 200))
createArea(name = "area05", localization = c(0, -400))
createLink(
from = "area01",
to = "area02",
dataLink = matrix(data = c(rep(9, 8760*2), rep(6, 8760*6)), ncol = 8)
)
createLink(
from = "area01",
to = "area03",
dataLink = matrix(data = c(rep(9, 8760*2), rep(6, 8760*6)), ncol = 8)
)
createLink(
from = "area02",
to = "area03",
dataLink = NULL
)
createLink(
from = "area03",
to = "area04",
dataLink = matrix(data = c(rep(4, 8760*6)), ncol = 6)
)
createLink(
from = "area04",
to = "area05",
dataLink = matrix(data = c(rep(6, 8760*6)), ncol = 6),
tsLink = matrix(data = c(rep(9, 8760*10), rep(6, 8760*10)), ncol = 20)
)
writeInputTS(
matrix(data = c(rep(99, 8760*10), rep(66, 8760*10)), ncol = 20),
type = "tsLink",
link = "area04%area05"
)
readScenarioBuilder()
sb <- scenarioBuilder(12, n_mc = 10)
updateScenarioBuilder(ldata = sb, series = "ntc")
readScenarioBuilder()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.