Building model

This page is a knowledge crystal of subtype method. The page identifier is Op_en6289
Moderator:Jouni (see all)
Upload data {{#opasnet_base_link:Op_en6289}}

Question

How to estimate the size of the building stock of a city, including heating properties, renovations etc? The situation is followed over time, and different policies can be implemented.

Answer

For examples of model use, see Building stock in Kuopio and Climate change policies and health in Kuopio.

Rationale

Causal diagram of the building model.

Calculations

+ Show code- Hide code library(OpasnetUtils) #########3# Calculate all building events (constructions, demolitions, renovations) buildings <- Ovariable("buildings", dependencies = data.frame(Name = c( "stockBuildings", # Building stock given as an amount at given timepoints "stockHeatingShares", # Heating types of current buildings "stockEfficiencyShares", # Energy efficiency types of current buildings "changeBuildings", # Construction or demolition rate as floor-m2 "changeHeatingShares", # Heating types of the buildings constructed or demolited "changeEfficiencyShares", # Energy efficiencies of the buildings constructed or demolited # "buildingTypes", # A dummy variable to combine two different indices: Building and Building2 "renovationShares", # Fraction of renovation type when renovation is done. "rateBuildings", # Percentage of renovations and other relative changes per year # "eventyear", # A dummy variable to combine time periods to numerical time axis. "obsyear" # A data.frame of years for which observations are calculated. This requires timepoints function. )), formula = function(...) { # Current building stock stock <- stockBuildings * stockHeatingShares * stockEfficiencyShares # Annual changes of floor amount in time multiplied by time, fraction of energy classes and heating types. timelength <- Ovariable(output = data.frame( obsyear, Result = c(diff(obsyear[[1]]), 0) )) change <- changeBuildings * timelength * changeHeatingShares * changeEfficiencyShares change <- timepoints(change, obsyear) # Cumulative changes at certain timepoints. stock@output <- orbind(stock, change) rate <- stock * rateBuildings * rateHeatingShares * rateEfficiencyShares temp1 <- EvalOutput(Ovariable("temp1", data = orbind(Now, New))) # All construction temp1 <- unkeep(temp1, cols = "Building2", sources = TRUE, prevresults = TRUE) # All source indices can be unkept, because each has only one location. renovationyear <- Ovariable("renovationyear", data = data.frame( Renovationyear = c(2015, 2025, 2035, 2045), Age = NA, Result = 1 )) reno <- temp1 * renovationyear # reno is the building stock repeated for every potential renovation decade. reno@output$Age <- as.numeric(as.character(reno@output$Renovationyear)) - as.numeric(as.character(reno@output$Eventyear)) # Floor area of renovations in ten years. Combine with continuous index Age. reno <- continuousOps(reno, rateBuildings, '*') * renovationShares * 10 reno@output$Eventyear <- reno@output$Renovationyear # Renovation is the new event. reno <- unkeep(reno, cols = c("Age", "Renovationyear"), sources = TRUE, prevresults = TRUE) temp2 <- orbind(temp1 * 1, reno * -1) # Equal amount stops being non-renovated. temp2$Renovation <- "None" temp2 <- orbind(temp2, reno) # Temp2: Construction + renovation in data.frame temp2$Renovation <- as.factor(temp2$Renovation) temp3 <- EvalOutput(Ovariable("buildings", data = temp2)) # Temp3: Like Temp2 but ovariable temp3 <- unkeep(temp3, sources = TRUE, prevresults = TRUE) temp3@output <- fillna(temp3@output, marginals = colnames(temp3@output)[temp3@marginal]) colnames(temp3@output)[colnames(temp3@output) == "City area"] <- "City.area" # temp4: Drop redundant time indices temp4 <- oapply(temp3, cols = c("Constructed", "Renovationyear", "Age"), FUN = "sum", na.rm = TRUE) temp4@output <- temp4@output[!is.na(result(temp4)) , ] # Calculate cumulative events at timepoints defined by obsyear. out <- timepoints(temp4, obsyear = obsyear) return(out) } ) ### HeatingEnergy heatingEnergy <- Ovariable("heatingEnergy", dependencies = data.frame(Name = c( "energyUse", # Energy consumption per floor area "efficiencyRatio", # Relative energy consumption compared with the efficiency group Old. "renovationRatio", # Relative energy consumption compared with the Renovation "buildings", "buildingTypes" )), formula = function(...) { out <- buildings * buildingTypes * energyUse * efficiencyRatio * renovationRatio return(out) } ) objects.store(buildings, heatingEnergy) cat("Saved ovariables buildings, heatingEnergy\n")

Dependencies

• Exposure to PM2.5 in Finland
• OpasnetUtils/Drafts
• Energy use of buildings
• Ovariables used or produced and example pages where they are used:
  • Building stock in Kuopio
    • buildingStock, # Current building stock
    • renovation, # Percentage of renovations per year
    • renovationShares, # Fraction of renovation type when renovation is done.
    • construction, # Construction rate in the future
    • constructionAreas,
    • buildingTypes, # A dummy variable to combine two different indices: Building and Building2
    • heatingShares, # Heating types of current buildings
    • heatingSharesNew, # Heating types of the buildings in the future
    • buildings,
  • Energy use of buildings
    • energyUse,
    • efficienciesNew, # Energy efficiencies in the future
    • savingPotential,
  • Climate change policies and health in Kuopio
    • eventyear, # A dummy variable to combine time periods to numerical time axis.
    • efficiencies, # Energy efficiencies of current buildings
    • obsyear # Years for which observations are calculated. This requires timepoints function.

See also

• Building stock in Kuopio
• Building stock in Europe
• Building data availability in Kuopio
• Energy balance
• Greenhouse gas emissions in Kuopio
• heande:File:2013 10 29 - Exposure-Response Functions.xlsx
• heande:Health impact assessment framework
• heande:File:2013 10 29 WP6.2 Agreed ER.doc
• heande:Urgenche: Workpackage Exposure, Health, and Well-being
• heande:File:WP6 Deliverable 6 1.doc
• Land use in Kuopio

Urgenche research project 2011 - 2014: city-level climate change mitigation

Urgenche pages Urgenche main page · Category:Urgenche · Urgenche project page (password-protected) Relevant data Building stock data in Urgenche‎ · Building regulations in Finland · Concentration-response to PM2.5 · Emission factors for burning processes · ERF of indoor dampness on respiratory health effects · ERF of several environmental pollutions · General criteria for land use · Indoor environment quality (IEQ) factors · Intake fractions of PM · Land use in Urgenche · Land use and boundary in Urgenche · Energy use of buildings Relevant methods Building model · Energy balance · Health impact assessment · Opasnet map · Help:Drawing graphs · OpasnetUtils‎ · Recommended R functions‎ · Using summary tables‎ City Kuopio Climate change policies and health in Kuopio (assessment) · Climate change policies in Kuopio (plausible city-level climate policies) · Health impacts of energy consumption in Kuopio · Building stock in Kuopio · Cost curves for energy (prioritization of options) · Energy balance in Kuopio (energy data) · Energy consumption and GHG emissions in Kuopio by sector · Energy consumption classes (categorisation) · Energy consumption of heating of buildings in Kuopio · Energy transformations (energy production and use processes) · Fuels used by Haapaniemi energy plant · Greenhouse gas emissions in Kuopio · Haapaniemi energy plant in Kuopio · Land use in Kuopio · Building data availability in Kuopio · Password-protected pages: File:Heat use in Kuopio.csv · Kuopio housing City Basel Buildings in Basel (password-protected) Energy balances Energy balance in Basel · Energy balance in Kuopio · Energy balance in Stuttgart · Energy balance in Suzhou