if (FALSE) {
# /!\/!\/!\ use or create a study /!\/!\/!\
# data preparation for sutructures
ts <- matrix(rep(c(0, 8000), each = 24*364),
ncol = 2)
df_pd <- matrix(rep(c(1, 1, 1, 0), each = 24*365),
ncol = 4)
df_pm <- matrix(data = c(rep(1, times = 365 * 24 * 3), rep(0, times = 365 * 24 * 1)),
ncol = 4)
# Example cluster object
zone_test_1 <- list(
`CCGT old 1`= list(
parameter= list(
name= "CCGT old 1",
group = "Other",
unitcount= 10L,
nominalcapacity= 100,
enabled= "true",
`min-stable-power`= 80L,
`min-up-time`= 20L,
`min-down_time`= 30L),
overwrite= TRUE,
time_series = ts_8760,
prepro_data = df_pd,
prepro_modulation = df_pm))
# overwrite existing cluster
zone_test_2 <- list(
`PEAK`= list(parameter= list(
name= "PEAK",
group = "Other"),
overwrite= TRUE,
time_series = ts,
prepro_data = df_pd,
prepro_modulation = df_pm))
# Create multiple areas with multiple clusters
list_areas <- antaresRead::getAreas()[1:5]
lapply(list_areas, createClusterBulk,
cluster_object = c(zone_test_1, zone_test_2),
add_prefix = TRUE)
}
Run the code above in your browser using DataLab