Difference between revisions of "Assessment of building policies' effect on dampness and asthma in Europe"

Revision as of 08:15, 13 January 2011

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

• Code plots cases of asthma attributable to dampness/mold for different year-scenario combinations.

asthma <- op_baseGetData("opasnet_base", "Op_en4723")
array <- DataframeToArray(asthma)
final <- apply(array, c(2,3,4,6), mean, na.rm=TRUE)
final <- apply(final, c(2,3,4), sum, na.rm=TRUE)
final1 <- apply(final, c(1,2), mean, na.rm=TRUE)
finaldf1 <- as.data.frame(as.table(final1))
finaldf1 <- finaldf1[finaldf1[,"Freq"]!=0,]
barplot(finaldf1[,"Freq"], names.arg=c("2010", "2020 Policy", "2020 BAU", "2030 Policy", "2030 BAU", "2050 Policy", "2050 BAU", 
"2050 Biomass", "2050 Insulation", "2050 Renovation"))
#temp <- array(NA, dim = c(4,3,3), dimnames = list(dimnames(final)[[1]][c(1,3:5)],dimnames(final)[[2]][2:4],dimnames(final)[[3]] ))
#for (i in 1:4) {temp[i,1,] <- final[,2,]-final[,2,]}
#final <- final[,]-final[rep(1,4),]
#barplot(final, beside=TRUE, legend.text=c("2010","2020","2030","2050"))

Result

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

See also

Keywords

Dampness, indoor air, asthma, Europe

References