Difference between revisions of "Helsinki energy production"

## This code is Op_en7311/fuelShares on page [[Helsinki energy production]]

library(OpasnetUtils)

fuelShares <- Ovariable("fuelShares", 
	dependencies = data.frame(
		Name = "fuelSharesgeneric",
		Ident = "Op_en2791/fuelSharesgeneric" # [[Emission factors for burning processes]]
	),
	formula = function(...) {
	
		dat <- EvalOutput(Ovariable("dat", ddata = "Op_en7311.fuel_use_by_heating_type")) # [[Helsinki energy production]]
		colnames(dat@output) <- gsub("[ \\.]", "_", colnames(dat@output))

		out <- combine(fuelSharesgeneric, dat, name = "fuelShares")
		out <- out * Ovariable(output = data.frame(Time = 1900:2080, Result = 1), marginal = c(TRUE, FALSE))
		out <- unkeep(out, prevresults = TRUE, sources = TRUE)

		return(out)
	}
)

objects.store(fuelShares)
cat("Object fuelShares stored.\n")

## This code is Op_en7311/emissionLocations [[Helsinki energy production]]

library(OpasnetUtils)

emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en7311", subset = "Emission locations") 
colnames(emissionLocations@data) <- gsub("[ \\.]", "_", colnames(emissionLocations@data))
emissionLocations@data$emissionLocationsResult <- 1

heatingShares <- 1 # This is already in the Basel data.

objects.store(emissionLocations, heatingShares)
cat("Objects emissionsLocations, heatingShares stored.\n")

library(OpasnetUtils)
emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en7311/Emission_locations")
result(emissionLocations) <- 1
objects.store(
	emissionLocations
)

cat("Objects
	emissionLocations
stored.\n")