Building model: Difference between revisions
Jump to navigation
Jump to search
Line 17: | Line 17: | ||
===Calculations=== | ===Calculations=== | ||
<rcode name='initiate' label='Initiate variables' embed=1> | <rcode name='initiate' label='Initiate variables (only for developers)' embed=1 graphics=1> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
Line 29: | Line 29: | ||
"changeBuildings", # Construction or demolition rate as floor-m2. Indices Efficiency and | "changeBuildings", # Construction or demolition rate as floor-m2. Indices Efficiency and | ||
# Heating should be included here, if used. | # Heating should be included here, if used. | ||
"renovationShares", # Fraction of renovation type when renovation is done. | "renovationShares", # Fraction of renovation type when renovation is done. | ||
" | "renovationRate", # Rate of renovation (fraction per time unit) | ||
" | "obstime" # one-column data.frame about the years to be used in output. Time column name must be the same | ||
# as in RenovationShares. | |||
)), | )), | ||
formula = function(...) { | formula = function(...) { | ||
#### Calculate cb ie. those buildings that were built between Time-1 and Time. | #### Calculate cb ie. those buildings that were built between Time-1 and Time. | ||
Line 58: | Line 51: | ||
cb <- stockBuildings * heatingShares * efficiencyShares | cb <- stockBuildings * heatingShares * efficiencyShares | ||
# Add buildings from stock and buildings from construction data | # Add buildings from stock and buildings from construction data | ||
Line 73: | Line 65: | ||
reno@marginal <- colnames(reno@output) %in% marginals | reno@marginal <- colnames(reno@output) %in% marginals | ||
reno <- reno * renovationRate # continuousOps(reno, renovationRate, '*') FIX continuousOps before using | reno <- reno * renovationRate # continuousOps(reno, renovationRate, '*') FIX continuousOps before using | ||
reno <- oapply(reno, cols = c("Age", "Time"), FUN = sum) | reno <- oapply(reno, cols = c("Age", "Time"), FUN = sum) | ||
out <- reno * -1 # Equal amount stops being non-renovated. | out <- reno * -1 # Equal amount stops being non-renovated. | ||
out@output$Renovation <- "None" | out@output$Renovation <- "None" | ||
out <- orbind2(out, reno) # Renovated buildings | |||
out <- orbind2(out, | colnames(cb@output)[colnames(cb@output) == "Time"] <- "Startyear" | ||
out <- orbind2( | |||
out, | |||
cb * Ovariable( # Add non-renovated buildings | |||
output = data.frame(Renovation = "None", Result = 1), | |||
marginal = c(TRUE, FALSE) | |||
) | |||
) | |||
for(i in colnames( | ######## NA in indices will ruin timepoints. Therefore must do fillna but with warning. | ||
b <- character() | |||
for(i in colnames(out@output)[out@marginal]) {if(any(is.na(out@output[[i]]))) b <- c(b, i)} | |||
if(length(b) > 0) { | |||
out@output <- fillna(out@output, b) | |||
warning("Missing values had to be filled by function fillna in indices: ", b, "\n") | |||
} | } | ||
out <- timepoints(out, obstime) # Accumulate over observation time. | |||
return(out) | return(out) |
Revision as of 21:05, 17 February 2015
Moderator:Jouni (see all) |
|
Upload data
|
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
Calculations
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.
- Building stock in Kuopio
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