convert_balance_detailed: Get detailed balance tables (demand broken down to its...

Description Usage Arguments Examples

View source: R/get_tables_detailed.r

Description

Get detailed balance tables (demand broken down to its comoponents)

Usage

1
2
3
4
5
6
convert_balance_detailed(
  region_list,
  product_list,
  scenario_list,
  folder = "mydata"
)

Arguments

region_list

List of regions (CAPRI code) for which the market balances should be derived

product_list

List of commodities (CAPRI code) for which the market balances should be derived

scenario_list

List of CAPRI scenarios for which the market balances should be derived

folder

Path to folder containing the CAPRI result files

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# CAPRI BALANCES (NO INTRA-TRADE)
#-------------------------------

# define regions and commodities -- for which products do you need the market balances?
load("data/eu_region.RData")

meat_product       <- c("PORK", "POUM", "BEEF", "SGMT")
dairy_product      <- c("MILK", "BUTT", "CREM", "FRMI", "CHES", "SMIP", "COCM", "WMIO", "CASE", "WHEP")
cereal_product     <- c("CERE", "RYEM", "WHEA", "OATS", "BARL", "OCER", "MAIZ", "RICE")
oilseeds_product   <- c("RAPE", "SOYA", "SUNF")
cakes_product      <- c("RAPC", "SUNC", "SOYC", "CAKS")
oils_product       <- c("RAPO", "SUNO", "SOYO", "OLIO", "PLMO")

baseline_scenarios <- c("res_2_0810mtr_rd_ref", "res_2_0813mtr_rd_ref", "res_2_0820mtr_rd_ref", "res_2_0825mtr_rd_ref", "res_2_0830mtr_rd_ref")

# get market balances

meat_balance       <- convert_balance_detailed(eu_region, meat_product, baseline_scenarios, folder = "mydata")
cereal_balance     <- convert_balance_detailed(eu_region, cereal_product, baseline_scenarios, folder = "mydata")
dairy_balance      <- convert_balance_detailed(eu_region, dairy_product, baseline_scenarios, folder = "mydata")
oilseeds_balance   <- convert_balance_detailed(eu_region, oilseeds_product, baseline_scenarios, folder = "mydata")
cakes_balance      <- convert_balance_detailed(eu_region, cakes_product, baseline_scenarios, folder = "mydata")
oils_balance       <- convert_balance_detailed(eu_region, oils_product, baseline_scenarios, folder = "mydata")
sugar              <- convert_balance_detailed(eu_region, c("SUGA"), baseline_scenarios, folder = "mydata")

trialsolution/caprir documentation built on Dec. 5, 2019, 8:54 a.m.