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
• Asthma incidence from the WHO: European hospital morbidity database (HMDB)
• ERF of indoor dampness on respiratory health effects

Unit

Unit in which the result is expressed.

Formula

• Asthma prevalence is estimated by summing in-patients and day-cases from the hospital morbidity database.
• Wheeze ERF used, as it approximately corresponds to the type of cases likely to be registered by the database.

dampness <- op_baseGetData("opasnet_base", "Erac2988") #Current version is bugged
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 cases hmdb.csv", sep = ";") #File constructed from hmdb data
asthma <- data.frame(Country=asthma[1:26,1], Casesper1000=(asthma[1:26,2]+asthma[1:26,3]))
erf <- 1.50
poparray <- DataframeToArray(pop, "Population")
dampxpop <- IntArray(dampness, poparray, "Population")
asthmaarray <- DataframeToArray(asthma, "Casesper1000")
dampxpopxasthma <- IntArray(dampxpop, asthmaarray, "Casesper1000")
final <- data.frame(dampxpopxasthma[,c(2,3,4,6,7,8)], Result=(dampxpopxasthma[,"Result"] * dampxpopxasthma[,"Population"] * (erf - 1) * 
dampxpopxasthma[,"Casesper1000"] / 1000))

Result

Show results

Keywords

Asthma, indoor air, dampness, Europe

Related files

<mfanonymousfilelist></mfanonymousfilelist>