Difference between revisions of "Cradle through consumer BEA"

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")