portfolio_exposure = data.table::data.table(Issuers = c('A','B','C'),
exposures = c(100, 200, 50))
emissions_revenue_data = data.table::data.table(Issuers = c('A','B','C'),
emissions = c(1000, 5000, 2000),
revenue = c(2000, 5000, 3000))
Weighted_Average_Carbon_Intensity(portfolio_exposure, emissions_revenue_data)
Run the code above in your browser using DataLab