Difference between revisions of "Disease risk"
From Testiwiki
(first draft based on op_fi:Seturi/tautiriski) |
(code improved) |
||
Line 8: | Line 8: | ||
== Answer == | == Answer == | ||
+ | <rcode graphics="1"> | ||
+ | |||
+ | library(OpasnetUtils) # A package with Opasnet functionalities | ||
+ | library(xtable) # A package with table formats | ||
+ | library(ggplot2) # A package with fancy graph formats | ||
+ | |||
+ | objects.latest("Op_en5917", "calculations") # Get the latest ovariables from code calculations on page Op_en5917. | ||
+ | |||
+ | diseaseRisk <- EvalOutput(diseaseRisk) | ||
+ | |||
+ | print(xtable(diseaseRisk@output), type = 'html') # Show a result table | ||
+ | |||
+ | ggplot(diseaseRisk@output, # Show a bar chart | ||
+ | aes(x = Disease, y = diseaseRiskResult, fill = Response.metric)) + | ||
+ | geom_bar(position="dodge") + | ||
+ | theme_grey(base_size = 24) + | ||
+ | theme(axis.text.x = element_text(angle = 90, hjust = 1)) | ||
+ | |||
+ | </rcode> | ||
+ | |||
+ | [http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=k5weJWB1RvHUj4Ms Default run] | ||
==Rationale== | ==Rationale== | ||
Line 13: | Line 34: | ||
===Calculations=== | ===Calculations=== | ||
− | <rcode name="calculations"> | + | <rcode name="calculations" label="Initiate variable"> |
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(xtable) | library(xtable) | ||
− | Ovariable( | + | diseaseRisk <- Ovariable("diseaseRisk", ddata = "Op_en5917", getddata = FALSE, save = TRUE) |
− | print(xtable(diseaseRisk@ | + | cat("Ovariable diseaseRisk saved. page_indent = Op_en5917, code_name = calculations\n") |
+ | |||
+ | print(xtable(EvalOutput(diseaseRisk, N = 1)@output), type = 'html') | ||
− | |||
</rcode> | </rcode> | ||
+ | |||
+ | [http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=jwkBUNYMc4bIqak2 Default run] | ||
===Data=== | ===Data=== |
Revision as of 19:43, 3 February 2013
This page is a variable.
The page identifier is Op_en5917 |
---|
Moderator:Nobody (see all) Click here to sign up. |
This page is a stub. You may improve it into a full page, and then a rating bar will appear here. |
Upload data
|
Contents
Question
What are incidence or prevalence rates of different diseases in Finland?
Answer
Rationale
Calculations
Data
Data from op_fi:Seturi/tautiriski
Obs | Disease | Population | Age | Sex | Response.metric | Unit | Result | Description |
---|---|---|---|---|---|---|---|---|
1 | Lung cancer | Whole population | Morbidity | cases /a | 2020 | Toinen arvio 2244 | ||
2 | Cardiorespiratory diseases | Whole population | Mortality | cases /a | 23840 | |||
3 | Total mortality | Whole population | Mortality | cases /a | 48106 | Toinen arvio 44460 | ||
4 | Bladder cancer | Whole population | Morbidity | cases /a | 1675 | Toinen arvio 821 | ||
5 | Bladder cancer | Whole population | M | Morbidity | cases /a | 1102 | ||
6 | Bladder cancer | Whole population | F | Morbidity | cases /a | 573 | ||
7 | Myocardial infarction | Whole population | Morbidity | cases /a | 24898 | |||
8 | Ischaemic heart disease | Whole population | Mortality | cases /a | 11887 | |||
9 | Asthma | Whole population | Morbidity | cases /a | 14561 | |||
10 | Asthma | Whole population | >21 | Morbidity | cases /a | 9466 | ||
11 | Asthma | Whole population | <14 | Morbidity | cases /a | 4366 | ||
12 | Pulmonary infections | Whole population | <2 | Morbidity | DALY | 35 | ||
13 | Otitis media | Whole population | <3 | Morbidity | DALY | 48 | ||
14 | COPD | Whole population | Morbidity | cases /a | 483000 | |||
15 | Upper respiratory symptoms | Whole population | Morbidity | cases /a | 928846 | |||
16 | Ischaemic heart disease/myocardial infarction | Workers | M | Morbidity | cases /a | 4655 | 35-64v miesten 1. infarktin insidenssi 354/100000 1991-4. Aromaa ym Suomalaisten terveys s155 | |
17 | Nasal cancer | Workers | Morbidity | cases /a | 35 | |||
18 | COPD | Whole population | 15-64 | Mortality | cases /a | 1127 | ||
19 | Asthma | Työikäinen väestö | 15-64 | M | Morbidity | cases /a | 3120 | |
20 | Asthma | Työikäinen väestö | 15-64 | F | Morbidity | cases /a | 4244 | |
21 | Cancer | Whole population | Morbidity | cases /a | 10880 | |||
22 | All skin cancers and basalioma | Whole population | Morbidity | cases /a | 8777 | |||
23 | Skin cancer | Whole population | Morbidity | cases /a | 2005 | |||
24 | Melanoma | Whole population | Morbidity | cases /a | 906 | |||
25 | Carcinoma spinocellulare | Whole population | Morbidity | cases /a | 1099 | |||
26 | Basalioma | Whole population | Morbidity | cases /a | 6772 |
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>