Difference between revisions of "Asthma prevalence due to building dampness in Europe"
From Testiwiki
m (→Dependencies) |
m (→Formula) |
||
| Line 30: | Line 30: | ||
*Wheeze ERF used, as it approximately corresponds to the type of cases likely to be registered by the database. | *Wheeze ERF used, as it approximately corresponds to the type of cases likely to be registered by the database. | ||
| − | <nowiki | + | <nowiki> |
dampness <- op_baseGetData("opasnet_base", "Erac2988") #Current version is bugged | dampness <- op_baseGetData("opasnet_base", "Erac2988") #Current version is bugged | ||
pop <- op_baseGetData("opasnet_base", "Op_en4691", include = 1367, exclude = c(1435, 1436)) | pop <- op_baseGetData("opasnet_base", "Op_en4691", include = 1367, exclude = c(1435, 1436)) | ||
| Line 48: | Line 48: | ||
final <- data.frame(dampxpopxasthma[,c(2,3,4,6,7,8)], Result=(dampxpopxasthma[,"Result"] * dampxpopxasthma[,"Population"] * (erf - 1) * | final <- data.frame(dampxpopxasthma[,c(2,3,4,6,7,8)], Result=(dampxpopxasthma[,"Result"] * dampxpopxasthma[,"Population"] * (erf - 1) * | ||
dampxpopxasthma[,"Casesper1000"] / 1000)) | dampxpopxasthma[,"Casesper1000"] / 1000)) | ||
| − | + | </nowiki> | |
== Result == | == Result == | ||
Revision as of 08:52, 9 December 2010
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
|
Contents
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
See also
Keywords
Asthma, indoor air, dampness, Europe
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>
