R/tools_table_calculators.R

In tdanker/REvola: Visualisations of A.Zerrahns renewable energy storage scenarios

tool1_table<-function(year=names(demand),
                      Renewable_capacity = 200,
                      Curtailment_threshold = 10,
                      storage_energy_level_startvalue = 0,
                      Efficiency_loading = 0.81,
                      Efficiency_discharging = 0.926,
                      ...){
  year=match.arg(year)
  SIM<-tool1_table_cpp(demand[,year], availability[,year],
                  Renewable_capacity ,
                  Curtailment_threshold ,
                  storage_energy_level_startvalue ,
                  Efficiency_loading  ,
                  Efficiency_discharging)
  SIM$h<-lubridate::ymd(paste(year, 1, 1, "-"))+lubridate::dhours(SIM$hour)
  return(SIM)
}

tool2_table<-function(year=names(demand),
                      Renewable_capacity = 200,
                      Curtailment_threshold = 10,
                      storage_energy_level_startvalue = 0,
                      Efficiency_loading = 0.81,
                      Efficiency_discharging = 0.926,
                      Storage_energy = 1000){
  year=match.arg(year)
  SIM<-tool2_table_cpp(demand[,year], availability[,year],
                  Renewable_capacity ,
                  Curtailment_threshold ,
                  storage_energy_level_startvalue ,
                  Efficiency_loading  ,
                  Efficiency_discharging,
                  Storage_energy)
  SIM$h<-lubridate::ymd(paste(year, 1, 1, "-"))+lubridate::dhours(SIM$hour)
  return(SIM)
}