Cradle through consumer BEA

This page is a variable. The page identifier is Op_en6286
Moderator:Jouni (see all)
Give your opinion to the peer rating of the content of this page. {{ #opasnet_rater: }}
Upload data Show results

Question

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

Answer

+ Show code- Hide code library(OpasnetUtils) objects.latest("Op_en6286", code_name = "initiate") # [[Cradle through consumer BEA]] oprint(head(EvalOutput(BEA)@output))

Rationale

Dependencies

Code that was used to upload the data on 5 Feb 2014. Upload history

Calculations

+ Show code- Hide code 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")