Cradle through consumer BEA: Difference between revisions
Jump to navigation
Jump to search
(placeholder for data) |
m (→Rationale) |
||
(9 intermediate revisions by the same user not shown) | |||
Line 8: | Line 8: | ||
== Answer == | == Answer == | ||
<rcode name="answer" embed=1> | |||
library(OpasnetUtils) | |||
objects.latest("Op_en6286", code_name = "initiate") # [[Cradle through consumer BEA]] | |||
oprint(head(EvalOutput(BEA)@output)) | |||
</rcode> | |||
== Rationale == | == Rationale == | ||
<ref>Greg Norris: Personal communication 31 Jan 2014.</ref> | <ref>Greg Norris: Personal communication 31 Jan 2014. File name: \\cesium\jtue$\_Documents\Handprinter\CradleThroughConsumerBEA.xls </ref> | ||
=== Dependencies === | === Dependencies === | ||
=== | [http://en.opasnet.org/en-opwiki/index.php?title=Cradle_through_consumer_BEA&oldid=31473 Code that was used to upload the data] on 5 Feb 2014. [http://en.opasnet.org/en-opwiki/index.php?title=Cradle_through_consumer_BEA&oldid=31477 Upload history] | ||
The data contains the following impacts: | |||
* Climate change | |||
* Ecosystem quality | |||
* Human health | |||
* Resources | |||
* Water consumption | |||
In addition, there is one table with 430 product categories: Categories | |||
=== Calculations === | |||
<rcode name='initiate' label='Initiate variables' embed=1> | |||
library(OpasnetUtils) | |||
categories <- opbase.data("Op_en6286", subset = "Categories") | |||
climate <- opbase.data("Op_en6286", subset = "Climate change") | |||
ecosystem <- opbase.data("Op_en6286", subset = "Ecosystem quality") | |||
health <- opbase.data("Op_en6286", subset = "Human health") | |||
resources <- opbase.data("Op_en6286", subset = "Resources") | |||
water <- opbase.data("Op_en6286", subset = "Water consumption") | |||
water$Result <- water$Result * 3.785411784 # From gallons to litres | |||
levels(categories[["Category"]]) <- gsub(" ", "", levels(categories[["Category"]])) | |||
# One trailing space may stay but $ does not work in regular expression. Why? | |||
categories <- Ovariable("categories", data = categories, Result = 1) | |||
BEA <- rbind( | |||
data.frame(Impact = "Climate change", Unit = "CO2eq /USD", climate), | |||
data.frame(Impact = "Ecosystem quality", Unit = "PDF m2 /a /USD", ecosystem), | |||
data.frame(Impact = "Human health", Unit = "DALY /USD", health), | |||
data.frame(Impact = "Resources", Unit = "MJ /USD", resources), | |||
data.frame(Impact = "Water consumption", Unit = "L /USD", water) | |||
) | |||
BEA <- Ovariable("BEA", data = BEA) | |||
objects.store(categories, BEA) | |||
cat("Ovariables BEA, categories saved. \n") | |||
</rcode> | |||
==See also== | ==See also== |
Latest revision as of 10:33, 14 March 2014
Moderator:Jouni (see all) |
|
Upload data
|
Question
What are the life-cycle impacts of products from cradle to consumer?
Answer
Rationale
Dependencies
Code that was used to upload the data on 5 Feb 2014. Upload history
The data contains the following impacts:
- Climate change
- Ecosystem quality
- Human health
- Resources
- Water consumption
In addition, there is one table with 430 product categories: Categories
Calculations
See also
Keywords
References
- ↑ Greg Norris: Personal communication 31 Jan 2014. File name: \\cesium\jtue$\_Documents\Handprinter\CradleThroughConsumerBEA.xls