Exposures in Finland: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(first draft)
 
(codes improved but answer code has problems with ggplot)
Line 4: Line 4:
== Question ==
== Question ==


What are typical exposure levels of common pollutants in Finland?


== Answer ==
== Answer ==
Line 13: Line 14:
library(ggplot2)      # A package with fancy graph 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.
objects.latest("Op_en5918", "calculations") # Get the latest ovariables from code calculations on page Op_en5918.


diseaseRisk <- EvalOutput(diseaseRisk)
exposureFinland <- EvalOutput(exposureFinland)


print(xtable(diseaseRisk@output), type = 'html') # Show a result table
print(xtable(exposureFinland@output[exposureFinland@output$Iter == 1, ]), type = 'html') # Show a result table


ggplot(diseaseRisk@output, # Show a bar chart
ggplot(exposureFinland@output, # Show a bar chart
aes(x = Disease, y = diseaseRiskResult, fill = Response.metric)) +
aes(x = Exposure, y = exposureFinlandResult)) +
geom_bar(position="dodge") +  
geom_bar(position="dodge") +  
theme_grey(base_size = 24) +
theme_grey(base_size = 24) +
Line 27: Line 28:
</rcode>
</rcode>


[http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=k5weJWB1RvHUj4Ms Default run]
[http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=QqKWfLASAba5DUna Default run]


== Rationale ==
== Rationale ==
Line 37: Line 38:
library(xtable)
library(xtable)


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


cat("Ovariable diseaseRisk saved. page_indent = Op_en5917, code_name = calculations\n")
cat("Ovariable exposureFinland saved. page_indent = Op_en5918, code_name = calculations\n")


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


</rcode>
</rcode>


[http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=jwkBUNYMc4bIqak2 Default run]
[http://en.opasnet.org/en-opwiki/index.php/Special:R-tools?id=pH2EbeEXre9GOhmJ Default run]


=== Dependencies ===
=== Dependencies ===
Line 73: Line 74:


{{mfiles}}
{{mfiles}}
{{publication
| authors        =
| title          =
| explanation    =
| publishingyear =
| urn            =
| reference      =
}}

Revision as of 21:03, 3 February 2013



Question

What are typical exposure levels of common pollutants in Finland?

Answer

+ Show code

Default run

Rationale

Calculations

+ Show code

Default run

Dependencies

Data

Part of data from op_fi:Seturi/altistus

Exposures in Finland: Difference between revisions(-)
ObsExposureExposure.routeUnitExposure.metricGroupAgeExposed.fractionResultBackground.exposureDescription
1Indoor radonInhalationBq /m3Whole population1100 (95 - 105) 5 (4 - 9)
2PM2.5Inhalationµg /m3Whole population17 (6 - 8)3
3Chlorination byproductsIngestionµg /LUsers of chlorinated surface water0.44611 (488.8 - 733.2)0

Formula

See also

Keywords

References


Related files

<mfanonymousfilelist></mfanonymousfilelist>