Asthma prevalence due to building dampness in Europe

This page is a variable. The page identifier is Op_en4723
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 Show results

Scope

Europe in 2010, 2020, 2030, 2050.

Definition

Data

Description of the data used for obtaining the value of the variable
(e.g. measurement data; mathematical method and its parameters). 

Please include references (preferably using the <ref> </ref> tags)
and links to original data, as appropriate.

Dependencies

• heande:Moisture damage
• Population of Europe
• Prevelance of Clinical Asthma
• ERF of indoor dampness on respiratory health effects

Unit

#

Formula

1. <math>extra cases = \left ( \frac{OR - 1}{\frac{1}{%damp}-1} \right ) d</math>
2. <math>d = \frac{cases}{\frac{OR}{\frac{1}{%damp}-1}+1}</math>

• ERF approximated as that for current asthma (1.56).

dampness <- op_baseGetData("opasnet_base", "Erac2988")
pop <- op_baseGetData("opasnet_base", "Op_en4691", include = 1367, exclude = c(1435, 1436))
countries <- c("Austria", "Belgium", "Bulgaria", "Switzerland", "Cyprus", "Czech Republic", "Germany", "Denmark", "Estonia", "Spain", 
	"Finland", "France", "Greece", "Hungary", "Ireland", "Iceland", "Italy", "Lithuania", "Luxembourg", "Latvia", "Malta", "Netherlands", 
	"Norway", "Poland", "Portugal", "Romania", "Sweden", "Slowenia", "Slovakia", "United Kingdom")
levels(pop[,"CountryID"]) <- countries
colnames(pop)[4] <- "Country"
colnames(pop)[8] <- "Population"
asthma <- read.csv("C:/Documents and Settings/tris/My Documents/Asthma prevalence.csv", sep = ";")
#asthma <- data.frame(Country=asthma[1:26,1], Casesper1000=(asthma[1:26,2]+asthma[1:26,3]))
erf <- 1.56
poparray <- DataframeToArray(pop, "Population")
dampxpop <- IntArray(dampness, poparray, "Population")
asthmaarray <- DataframeToArray(asthma, "Prevalence")
dampxpopxasthma <- IntArray(dampxpop, asthmaarray, "Prevalence")
final <- data.frame(dampxpopxasthma[,c(2,3,4,6,7,8)], Result=(dampxpopxasthma[,"Prevalence"] / 100 * dampxpopxasthma[,"Population"] / (erf / (100 / 
dampxpopxasthma[,"Result"] - 1) + 1) * (erf - 1) / (100 / dampxpopxasthma[,"Result"] - 1)))

Result

Show results

Keywords

Asthma, indoor air, dampness, Europe

Related files

<mfanonymousfilelist></mfanonymousfilelist>