| Moderator:Jouni (see all) |
|
|
| Upload data
|
What are the life-cycle impacts of products from cradle to consumer?
Code that was used to upload the data on 5 Feb 2014.
The actual successful runs: [1] [2] [3] [4] [5] [6] [7]
The failed runs: [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]
library(OpasnetUtils)
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
categories <- data.frame(climate[1:3]
levels(categories[["Category"]]) <- gsub(" ", "", levels(categories[["Category"]]))
# One training 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[3:ncol(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")
|