Assessment of building policies' effect on dampness and asthma in Europe

This page is a assessment. The page identifier is Op_en4731
Moderator:Teemu R (see all)
This page is a stub. You may improve it into a full page, and then a rating bar will appear here.
Upload data

Scope

Purpose

What are the effects of different building policies on dampness and asthma prevalence in Europe?

Boundaries etc.

Boundaries, scenarios, intended users, and participants are the same as in the Mega case study.

Definition

Decision variables

• Building policies in Europe

Other variables

• Population of Europe by Country
• Asthma prevalence
• heande:HI:Air exchange rate for European residences
• heande:Moisture damage
• ERF of indoor dampness on respiratory health effects

Indicators

• Asthma incidence increase due to building dampness in Europe

R code for detailed analysis

BP <- op_baseGetData("opasnet_base", "Op_en4068")
asthma <- op_baseGetData("opasnet_base", "Op_en4723")
BParray <- DataframeToArray(BP)
asthmaxBP <- IntArray(asthma, BParray, "Successful")
array <- DataframeToArray(asthmaxBP)
gmean <- function(x) exp(mean(log(x[is.na(x)==FALSE])))
final <- apply(array, c(8,4,7,6), gmean) #marginal:successful,rate,policy,year
finaldf <- as.data.frame(as.table(final))
barplot(finaldf[,"Freq"])
#final <- data.frame(Policy=rep(levels(factor(asthmaxBP[,"policy"])), each=2), Successful=rep(c(1,0),4), 
#	Mean=c(mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[1]&asthmaxBP[,"Successful"]==1,"Result"]), 
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[1]&asthmaxBP[,"Successful"]==0,"Result"]),
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[2]&asthmaxBP[,"Successful"]==1,"Result"]),
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[2]&asthmaxBP[,"Successful"]==0,"Result"]),
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[3]&asthmaxBP[,"Successful"]==1,"Result"]), 
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[3]&asthmaxBP[,"Successful"]==0,"Result"]),
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[4]&asthmaxBP[,"Successful"]==1,"Result"]), 
#	mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[4]&asthmaxBP[,"Successful"]==0,"Result"])),
#	GMean=c(exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[1]&asthmaxBP[,"Successful"]==1,"Result"]))), 
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[1]&asthmaxBP[,"Successful"]==0,"Result"]))),
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[2]&asthmaxBP[,"Successful"]==1,"Result"]))),
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[2]&asthmaxBP[,"Successful"]==0,"Result"]))),
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[3]&asthmaxBP[,"Successful"]==1,"Result"]))), 
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[3]&asthmaxBP[,"Successful"]==0,"Result"]))),
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[4]&asthmaxBP[,"Successful"]==1,"Result"]))), 
#	exp(mean(log(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[4]&asthmaxBP[,"Successful"]==0,"Result"])))))
#barplot(final[,4])

Result

Asthma incidence increase due to building dampness in Europe: Show results

Extra asthma cases due to building dampness
Policy	Successful	Mean	GMean
Behavioural changes	1	124627.8	42716.72
Behavioural changes	0	123267.9	42221.99
EPBD 2008	1	122072.8	42204.77
EPBD 2008	0	125699.5	42716.64
More efficient urban structures	1	122790.4	42540.45
More efficient urban structures	0	125024.9	42401.92
More renewables	1	123290.7	42495.84
More renewables	0	124626.3	42440.56

Keywords

Dampness, indoor air, asthma, Europe