Cradle through consumer BEA: Difference between revisions

From Opasnet
Jump to navigation Jump to search
 
(3 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 ===
=== Calculations ===
Line 20: Line 39:
library(OpasnetUtils)
library(OpasnetUtils)


categories <- opbase.data("Op_en6286", subset = "Categories")
climate <- opbase.data("Op_en6286", subset = "Climate change")
climate <- opbase.data("Op_en6286", subset = "Climate change")
ecosystem <- opbase.data("Op_en6286", subset = "Ecosystem quality")
ecosystem <- opbase.data("Op_en6286", subset = "Ecosystem quality")
Line 28: Line 48:
water$Result <- water$Result * 3.785411784 # From gallons to litres
water$Result <- water$Result * 3.785411784 # From gallons to litres


categories <- data.frame(climate[1:3]
levels(categories[["Category"]]) <- gsub("  ", "", levels(categories[["Category"]]))
levels(categories[["Category"]]) <- gsub("  ", "", levels(categories[["Category"]]))  
# One trailing space may stay but $ does not work in regular expression. Why?
# One training space may stay but $ does not work in regular expression. Why?


categories <- Ovariable("categories", data = categories, Result = 1))
categories <- Ovariable("categories", data = categories, Result = 1)


BEA <- rbind(
BEA <- rbind(
data.frame(Impact = "Climate change", Unit = "CO2eq /USD", climate[3:ncol(climate)]),
data.frame(Impact = "Climate change", Unit = "CO2eq /USD", climate),
data.frame(Impact = "Ecosystem quality", Unit = "PDF m2 /a /USD", ecosystem),
data.frame(Impact = "Ecosystem quality", Unit = "PDF m2 /a /USD", ecosystem),
data.frame(Impact = "Human health", Unit = "DALY /USD", health),
data.frame(Impact = "Human health", Unit = "DALY /USD", health),
Line 57: Line 76:
<references/>
<references/>


==Related files==<!-- __OBI_TS:1391436420 -->
==Related files==

Latest revision as of 10:33, 14 March 2014



Question

What are the life-cycle impacts of products from cradle to consumer?

Answer

+ Show code

Rationale

[1]

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

+ Show code

See also

Keywords

References

  1. ↑ Greg Norris: Personal communication 31 Jan 2014. File name: \\cesium\jtue$\_Documents\Handprinter\CradleThroughConsumerBEA.xls

Related files

Retrieved from "https://en.opasnet.org/index.php?title=Cradle_through_consumer_BEA&oldid=31680"