Difference between revisions of "Assessment of building policies' effect on dampness and asthma in Europe"
From Testiwiki
m (→R code for detailed analysis) |
(added a resulting barplot) |
||
| Line 40: | Line 40: | ||
final <- final[,"1",]-final[,"0",] | final <- final[,"1",]-final[,"0",] | ||
finaldf <- as.data.frame(as.table(final)) | finaldf <- as.data.frame(as.table(final)) | ||
| − | barplot(finaldf[,"Freq"]) | + | barplot(matrix(finaldf[,"Freq"],4,4), beside=TRUE, names.arg=c("Behavioral changes", "EPBD 2008", "More eff. urb. structures", "More renewables")) |
| + | #levels(finaldf[,"policy"])) | ||
#final <- data.frame(Policy=rep(levels(factor(asthmaxBP[,"policy"])), each=2), Successful=rep(c(1,0),4), | #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=c(mean(asthmaxBP[asthmaxBP[,"policy"]==levels(factor(asthmaxBP[,"policy"]))[1]&asthmaxBP[,"Successful"]==1,"Result"]), | ||
| Line 63: | Line 64: | ||
[[Asthma incidence increase due to building dampness in Europe]]: {{#opasnet_base_link:Op_en4723}} | [[Asthma incidence increase due to building dampness in Europe]]: {{#opasnet_base_link:Op_en4723}} | ||
| + | |||
| + | [[Image:European_building_policy_impact_on_asthma.png|900px|1000px]] | ||
==See also== | ==See also== | ||
Revision as of 14:40, 22 December 2010
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
|
Contents
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
- 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
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(6,8,7,3), mean, na.rm=TRUE)
final <- apply(final, c(1,2,3), sum, na.rm=TRUE)
final <- final[,"1",]-final[,"0",]
finaldf <- as.data.frame(as.table(final))
barplot(matrix(finaldf[,"Freq"],4,4), beside=TRUE, names.arg=c("Behavioral changes", "EPBD 2008", "More eff. urb. structures", "More renewables"))
#levels(finaldf[,"policy"]))
#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
Error creating thumbnail: Unable to save thumbnail to destination
See also
Keywords
Dampness, indoor air, asthma, Europe
