Difference between revisions of "Energy use of buildings"

library(OpasnetUtils)

energyUse <- Ovariable(
	name = 'energyUse',
	ddata = 'Op_en5488',
	subset = 'Baseline energy consumption per area unit'
)
levels(energyUse@data$Heating)[levels(energyUse@data$Heating) == ""] <- NA
energyUse@data <- fillna(energyUse@data, "Heating")
energyUse@data <- energyUse@data[
	energyUse@data[["Energy use"]] == "Heat" , 
	colnames(energyUse@data) != "Energy use"
]

energy.per.volume <- Ovariable(
	name = 'energy.per.volume',
	ddata = 'Op_en5488',
	subset = 'Baseline energy consumption per volume unit'
)

efficienciesNew <- Ovariable(
	name = 'efficienciesNew',
	ddata = 'Op_en5488',
	subset = 'Energy efficiency of new buildings in the future'
)
efficienciesNew@data$Efficiency <- factor(
	efficienciesNew@data$Efficiency,
	levels = c("Old", "New", "Low-energy", "Passive"),
	ordered = TRUE
)

Maximum.allowed.energy.consumption.per.unit <- Ovariable(
	name = 'Maximum.allowed.energy.consumption.per.unit',
	ddata = 'Op_en5488',
	subset = 'Maximum allowed energy consumption per unit (= E-value)'
)

savingPotential <- Ovariable(
	name = 'savingPotential',
	ddata = 'Op_en5488',
	subset = 'Energy saving potential of different renovations'
)
savingPotential@data <- savingPotential@data[
	savingPotential@data$Observation == "Relative" , 
	colnames(savingPotential@data) != "Observation"
]
savingPotential@data$Renovation <- factor(
	savingPotential@data$Renovation, 
	levels = c("None", "General", "Windows", "Technical systems", "Sheath reform"),
	ordered = TRUE
)
levels(savingPotential@data$Building2)[levels(savingPotential@data$Building2) == ""] <- NA
savingPotential@data <- fillna(savingPotential@data, "Building2")
savingPotential@data$savingPotentialResult <- 1 - as.numeric(as.character(savingPotential@data$savingPotentialResult)) / 100 

energy.classes.of.buildings <- Ovariable(
	name = 'energy.classes.of.buildings',
	ddata = 'Op_en5488',
	subset = 'Energy use by energy class of building'
)

objects.store(
	energyUse,
	energy.per.volume,
	efficienciesNew,
	savingPotential,
	energy.classes.of.buildings
)

cat("Objects
	energyUse,
	energy.per.volume,
	efficienciesNew,
	savingPotential,
	energy.classes.of.buildings
initiated!\n")