Disease risk: Difference between revisions

Revision as of 10:02, 27 August 2013

This page is a knowledge crystal of subtype 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.
Upload data {{#opasnet_base_link:Op_en5917}}

Question

What are incidence or prevalence rates of different diseases in Finland?

Answer

+ Show code - Hide code


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", "initiate") # Get the latest ovariables from code calculations on page Op_en5917.


diseaseRisk <- EvalOutput(diseaseRisk)

oprint(summary(diseaseRisk))

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)) +
	scale_y_log10() # limits = c(1, 1000000))

----#: . Code seems to work, but gives out the yellow errorbox. --Heta 13:02, 27 August 2013 (EEST) (type: truth; paradigms: science: comment)

Rationale

Calculations

+ Show code - Hide code

library(OpasnetUtils)
library(xtable)

diseaseRisk <- Ovariable("diseaseRisk", ddata = "Op_en5917", getddata = FALSE, save = TRUE)

cat("Ovariable diseaseRisk saved. page_indent = Op_en5917, code_name = initiate\n")

print(xtable(EvalOutput(diseaseRisk, N = 1)@output), type = 'html')

Data

Data from op_fi:Seturi/tautiriski

Disease risk: Difference between revisions(# /a)
Obs	Disease	Population	Age	Sex	Response.metric	Unit	Result	Description
1	Lung cancer	Whole population			Morbidity	cases /a	2276	Year 2010 cancer register
2	Cardiopulmonary	Whole population			Mortality	cases /a	23840
3	Total mortality	Whole population			Mortality	cases /a	50 568	2011 data, Tilastokeskus
4	Bladder cancer	Whole population			Morbidity	cases /a	898	Year 2010 cancer register
5	Myocardial infarction	Whole population			Morbidity	cases /a	24898
6	Ischaemic heart disease	Whole population			Mortality	cases /a	11887
7	Asthma	Whole population			Morbidity	cases /a	14561
8	Asthma	Whole population	>21		Morbidity	cases /a	9466
9	Asthma	Whole population	<14		Morbidity	cases /a	4366
10	Pulmonary infections	Whole population	<2		Morbidity	DALY	35
11	Otitis media	Whole population	<3		Morbidity	DALY	48
12	Lower respiratory symptoms	Whole population			Morbidity	cases /a	483000
13	Upper respiratory symptoms	Whole population			Morbidity	cases /a	928846
14	Ischaemic heart disease/myocardial infarction	Population at working age		M	Morbidity	cases /a	4655	35-64v miesten 1. infarktin insidenssi 354/100000 1991-4. Aromaa ym Suomalaisten terveys s155
15	Nasal cancer	Population at working age			Morbidity	cases /a	35
16	COPD	Whole population	15-64		Mortality	cases /a	1127
17	Asthma	Population at working age	15-64	M	Morbidity	cases /a	3120
18	Asthma	Population at working age	15-64	F	Morbidity	cases /a	4244
19	Cancer	Whole population			Morbidity	cases /a	10880
20	All skin cancers and basalioma	Whole population			Morbidity	cases /a	8777
21	Skin cancer	Whole population			Morbidity	cases /a	2005
22	Melanoma	Whole population			Morbidity	cases /a	906
23	Carcinoma spinocellulare	Whole population			Morbidity	cases /a	1099
24	Basalioma	Whole population			Morbidity	cases /a	6772
25	Leukemia	Whole population			Morbidity	cases /a	539	Year 2010, cancer register

Keywords

References

Related files

@@ Line 1: / Line 1: @@
 [[Category:Health impact]]
+[[Category:Code under inspection]]
 {{variable|moderator=|stub=Yes}}
@@ Line 29: / Line 30: @@
 </rcode>
+{{comment|# |Code seems to work, but gives out the yellow errorbox.|--[[User:Heta|Heta]] 13:02, 27 August 2013 (EEST)}}
 ==Rationale==