Skip to content

Commit 8f39057

Browse files
kalashsinghalkalashsinghal
authored
Add descriptive analysis of best case worst case for sector profile at product level (#49)
* refactor * refactor
1 parent 52b35f4 commit 8f39057

File tree

5 files changed

+225
-2
lines changed

5 files changed

+225
-2
lines changed

‎NAMESPACE‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@ export(calculate_co2_descriptive_analysis_per_benchmark)
44
export(calculate_trs_descriptive_analysis_per_tr_benchmark)
55
export(example_emission_product_best_case_worst_case)
66
export(example_emission_product_co2_des_analysis)
7+
export(example_sector_product_best_case_worst_case)
78
export(example_transition_risk_company_emission_avg_best_case_worst_case)
89
export(example_transition_risk_company_sector_avg_best_case_worst_case)
910
export(example_transition_risk_company_transition_risk_avg_best_case_worst_case)
@@ -36,7 +37,6 @@ importFrom(tiltIndicator,unnest_company)
3637
importFrom(tiltIndicator,unnest_product)
3738
importFrom(tiltIndicatorAfter,profile_emissions)
3839
importFrom(tiltIndicatorAfter,profile_sector)
39-
importFrom(tiltIndicatorAfter,transition_risk_profile)
4040
importFrom(tiltToyData,toy_ecoinvent_activities)
4141
importFrom(tiltToyData,toy_ecoinvent_europages)
4242
importFrom(tiltToyData,toy_ecoinvent_inputs)
@@ -47,4 +47,5 @@ importFrom(tiltToyData,toy_isic_name)
4747
importFrom(tiltToyData,toy_sector_profile_any_scenarios)
4848
importFrom(tiltToyData,toy_sector_profile_companies)
4949
importFrom(tiltTransitionRisk,toy_all_activities_scenario_sectors)
50+
importFrom(tiltTransitionRisk,transition_risk_profile)
5051
importFrom(utils,data)

‎R/example_data.R‎

Lines changed: 41 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -21,6 +21,7 @@
2121
#' example_transition_risk_emission_ep_product_des_analysis()
2222
#' example_transition_risk_sector_ep_product_des_analysis()
2323
#' example_transition_risk_ep_product_des_analysis()
24+
#' example_sector_product_best_case_worst_case()
2425
example_emission_product_co2_des_analysis <- function() {
2526
tribble(
2627
# styler: off
@@ -221,6 +222,46 @@ example_emission_product_best_case_worst_case <- function() {
221222
)
222223
}
223224

225+
#' @export
226+
#' @rdname example_emission_product_co2_des_analysis
227+
example_sector_product_best_case_worst_case <- function() {
228+
tribble(
229+
# styler: off
230+
~companies_id, ~scenario, ~year, ~country, ~sector_category, ~sector_profile_equal_weight, ~sector_profile_best_case, ~sector_profile_worst_case,
231+
"comp_1", "1.5C RPS", 2030, "france", "high", 0.25, 0.25, 0.25,
232+
"comp_2", "1.5C RPS", 2030, "france", "high", 0.25, 0.25, 0.25,
233+
"comp_1", "1.5C RPS", 2030, "france", "high", 0.75, 0.75, 0.75,
234+
"comp_1", "1.5C RPS", 2030, "france", "medium", 0.10, 0.10, 0.10,
235+
"comp_1", "1.5C RPS", 2030, "france", "low", 0.15, 0.15, 0.15,
236+
"comp_1", "1.5C RPS", 2030, "france", "low", 0.55, 0.55, 0.55,
237+
"comp_1", "1.5C RPS", 2030, "france", NA_character_, 0.30, 0.30, 0.30,
238+
"comp_1", "NZ 2050", 2030, "france", "high", 0.45, 0.45, 0.45,
239+
"comp_1", "NZ 2050", 2030, "france", "medium", 0.60, 0.60, 0.60,
240+
"comp_1", "NZ 2050", 2030, "france", "medium", 0.40, 0.40, 0.40,
241+
"comp_1", "NZ 2050", 2030, "france", "low", 0.35, 0.35, 0.35,
242+
"comp_1", "NZ 2050", 2030, "france", "low", 0.75, 0.75, 0.75,
243+
"comp_1", "NZ 2050", 2030, "austria", "high", 0.35, 0.35, 0.35,
244+
"comp_1", "1.5C RPS", 2030, "austria", "high", 0.25, 0.25, 0.25,
245+
"comp_1", "1.5C RPS", 2030, "austria", "medium", 0.10, 0.10, 0.10,
246+
"comp_1", "1.5C RPS", 2030, "austria", "medium", 0.60, 0.60, 0.60,
247+
"comp_1", "1.5C RPS", 2030, "austria", "low", 0.15, 0.15, 0.15,
248+
"comp_1", "1.5C RPS", 2030, "austria", NA_character_, 0.30, 0.30, 0.30,
249+
"comp_1", "NZ 2050", 2030, "austria", "high", 0.45, 0.45, 0.45,
250+
"comp_1", "NZ 2050", 2030, "austria", "medium", 0.60, 0.60, 0.60,
251+
"comp_1", "NZ 2050", 2030, "austria", "medium", 0.80, 0.80, 0.80,
252+
"comp_1", "NZ 2050", 2030, "austria", "low", 0.35, 0.35, 0.35,
253+
"comp_1", "NZ 2050", 2030, "austria", "low", 0.85, 0.85, 0.85,
254+
"comp_1", "NZ 2050", 2030, "austria", NA_character_, 0.75, 0.75, 0.75,
255+
"comp_1", "NZ 2050", 2030, "germany", "high", 0.45, 0.45, 0.45,
256+
"comp_1", "NZ 2050", 2030, "germany", "medium", 0.60, 0.60, 0.60,
257+
"comp_1", "NZ 2050", 2030, "netherlands", "high", 0.45, 0.45, 0.45,
258+
"comp_1", "NZ 2050", 2030, "netherlands", "medium", 0.60, 0.60, 0.60,
259+
"comp_1", "NZ 2050", 2030, "spain", "high", 0.45, 0.45, 0.45,
260+
"comp_1", "NZ 2050", 2030, "spain", "medium", 0.60, 0.60, 0.60
261+
# styler: on
262+
)
263+
}
264+
224265
#' @export
225266
#' @rdname example_emission_product_co2_des_analysis
226267
example_transition_risk_company_emission_avg_best_case_worst_case <- function() {

‎R/tiltDataAnalysis-package.R‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,6 @@
2222
#' @importFrom tiltIndicator unnest_product
2323
#' @importFrom tiltIndicatorAfter profile_emissions
2424
#' @importFrom tiltIndicatorAfter profile_sector
25-
#' @importFrom tiltIndicatorAfter transition_risk_profile
2625
#' @importFrom tiltToyData toy_ecoinvent_activities
2726
#' @importFrom tiltToyData toy_ecoinvent_europages
2827
#' @importFrom tiltToyData toy_ecoinvent_inputs
@@ -33,6 +32,7 @@
3332
#' @importFrom tiltToyData toy_sector_profile_any_scenarios
3433
#' @importFrom tiltToyData toy_sector_profile_companies
3534
#' @importFrom tiltTransitionRisk toy_all_activities_scenario_sectors
35+
#' @importFrom tiltTransitionRisk transition_risk_profile
3636
#' @importFrom utils data
3737
## usethis namespace: end
3838
NULL

‎man/example_emission_product_co2_des_analysis.Rd‎

Lines changed: 4 additions & 0 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)