Skip to content

Commit

Permalink
Update article (#38)
Browse files Browse the repository at this point in the history
  • Loading branch information
@kalashsinghal
kalashsinghal authored Aug 22, 2024
1 parent 8ab42f6 commit fced484
Show file tree
Hide file tree
Showing 4 changed files with 270 additions and 117 deletions.
5 changes: 3 additions & 2 deletions NAMESPACE
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,18 +2,19 @@

export(calculate_co2_descriptive_analysis_per_benchmark)
export(calculate_trs_descriptive_analysis_per_tr_benchmark)
export(example_emission_ep_product_des_analysis)
export(example_emission_product_best_case_worst_case)
export(example_emission_product_co2_des_analysis)
export(example_sector_ep_product_des_analysis)
export(example_transition_risk_company_emission_avg_best_case_worst_case)
export(example_transition_risk_company_sector_avg_best_case_worst_case)
export(example_transition_risk_company_transition_risk_avg_best_case_worst_case)
export(example_transition_risk_emission_ep_product_des_analysis)
export(example_transition_risk_ep_product_des_analysis)
export(example_transition_risk_product_best_case_worst_case)
export(example_transition_risk_product_emission_cov)
export(example_transition_risk_product_sector_cov)
export(example_transition_risk_product_transition_risk_cov)
export(example_transition_risk_product_trs_des_analysis)
export(example_transition_risk_sector_ep_product_des_analysis)
export(show_reduction_targets_for_tilt_subsectors_per_grouping_sector)
importFrom(dplyr,arrange)
importFrom(dplyr,distinct)
Expand Down
72 changes: 49 additions & 23 deletions R/example_data.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,8 +10,6 @@
#' @examples
#' example_emission_product_co2_des_analysis()
#' example_transition_risk_product_trs_des_analysis()
#' example_emission_ep_product_des_analysis()
#' example_sector_ep_product_des_analysis()
#' example_transition_risk_product_emission_cov()
#' example_transition_risk_product_sector_cov()
#' example_transition_risk_product_transition_risk_cov()
Expand All @@ -20,6 +18,9 @@
#' example_transition_risk_company_sector_avg_best_case_worst_case()
#' example_transition_risk_product_best_case_worst_case()
#' example_transition_risk_company_transition_risk_avg_best_case_worst_case()
#' example_transition_risk_emission_ep_product_des_analysis()
#' example_transition_risk_sector_ep_product_des_analysis()
#' example_transition_risk_ep_product_des_analysis()
example_emission_product_co2_des_analysis <- function() {
tribble(
# styler: off
Expand Down Expand Up @@ -64,36 +65,60 @@ example_transition_risk_product_trs_des_analysis <- function() {

#' @export
#' @rdname example_emission_product_co2_des_analysis
example_emission_ep_product_des_analysis <- function() {
example_transition_risk_emission_ep_product_des_analysis <- function() {
tribble(
# styler: off
~companies_id, ~ep_product, ~emission_profile,
"comp_1", "a", "high",
"comp_1", "b", "high",
"comp_1", "c", "high",
"comp_1", "d", NA_character_,
"comp_1", "e", NA_character_,
"comp_2", "a", "high",
"comp_2", "b", "high",
"comp_2", "c", "high"
# styler: on
~companies_id, ~product, ~grouping_emission, ~emission_category,
"comp_1", "a", "all", "high",
"comp_1", "b", "all", "high",
"comp_1", "c", "all", "high",
"comp_1", "d", NA_character_, NA_character_,
"comp_1", "e", NA_character_, NA_character_,
"comp_2", "a", "all", "high",
"comp_2", "b", "all", "high",
"comp_2", "c", "all", "high",
"comp_3", "d", NA_character_, NA_character_,
"comp_3", "e", NA_character_, NA_character_
# styler: on
)
}

#' @export
#' @rdname example_emission_product_co2_des_analysis
example_transition_risk_sector_ep_product_des_analysis <- function() {
tribble(
# styler: off
~companies_id, ~product, ~sector_target, ~sector_category,
"comp_1", "a", 0.12, "high",
"comp_1", "b", 0.96, "high",
"comp_1", "c", 0.64, "high",
"comp_1", "d", NA_real_, NA_character_,
"comp_1", "e", NA_real_, NA_character_,
"comp_2", "a", 0.12, "high",
"comp_2", "b", 0.96, "high",
"comp_2", "c", 0.64, "high",
"comp_3", "d", NA_real_, NA_character_,
"comp_3", "e", NA_real_, NA_character_
# styler: on
)
}

#' @export
#' @rdname example_emission_product_co2_des_analysis
example_sector_ep_product_des_analysis <- function() {
example_transition_risk_ep_product_des_analysis <- function() {
tribble(
# styler: off
~companies_id, ~ep_product, ~sector_profile,
"comp_1", "a", "high",
"comp_1", "b", "high",
"comp_1", "c", "high",
"comp_1", "d", NA_character_,
"comp_1", "e", NA_character_,
"comp_2", "a", "high",
"comp_2", "b", "high",
"comp_2", "c", "high"
~companies_id, ~product, ~grouping_transition_risk, ~transition_risk_category,
"comp_1", "a", "1.5C RPS_2030_all", "high",
"comp_1", "b", "1.5C RPS_2030_all", "high",
"comp_1", "c", "1.5C RPS_2030_all", "high",
"comp_1", "d", NA_character_, NA_character_,
"comp_1", "e", NA_character_, NA_character_,
"comp_2", "a", "1.5C RPS_2030_all", "high",
"comp_2", "b", "1.5C RPS_2030_all", "high",
"comp_2", "c", "1.5C RPS_2030_all", "high",
"comp_3", "d", NA_character_, NA_character_,
"comp_3", "e", NA_character_, NA_character_
# styler: on
)
}
Expand Down Expand Up @@ -308,3 +333,4 @@ example_transition_risk_company_transition_risk_avg_best_case_worst_case <- func
# styler: on
)
}

16 changes: 10 additions & 6 deletions man/example_emission_product_co2_des_analysis.Rd
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading

0 comments on commit fced484

Please sign in to comment.