Difference between revisions of "POPs in Baltic salmon"
m (→Rationale: code updated) |
(→Answer: code for results printing added) |
||
Line 11: | Line 11: | ||
Posterior congener median concentrations are presented below for each compound group (PCDD/F, PCB, BDE) analysed in EU-kalat. | Posterior congener median concentrations are presented below for each compound group (PCDD/F, PCB, BDE) analysed in EU-kalat. | ||
+ | |||
+ | You can print out the numerical results of prior and posterior congener concentrations below. In addition the possible updated versions of the above figures are printed out. | ||
+ | |||
+ | <rcode label="Show results" embed=1 graphics=1 > | ||
+ | |||
+ | library(OpasnetUtils) | ||
+ | library(ggplot2) | ||
+ | library(reshape2) | ||
+ | |||
+ | objects.latest("Op_en7486", "pop_bayes") | ||
+ | |||
+ | oprint(dcast(resultsall@output, Congener~variable, fill=0, value.var = "resultsallResult")) | ||
+ | |||
+ | ggplot(subset(resultsall@output, grepl("PCB", Congener) & grepl("Medianpost", variable)), aes(x = Congener, y = resultsallResult, fill = Congener)) + geom_bar(stat = "identity") + | ||
+ | labs(x = "Congener", y = "Concentration (pg/g fat)") + coord_flip() + ggtitle("Median posterior concentrations of PCB's in Baltic salmon") | ||
+ | |||
+ | ggplot(subset(resultsall@output, grepl("CD", Congener) & grepl("Medianpost", variable)), aes(x = Congener, y = resultsallResult, fill = Congener)) + geom_bar(stat = "identity") + | ||
+ | labs(x = "Congener", y = "Concentration (pg/g fat)") + coord_flip() + ggtitle("Median posterior concentrations of PCDD/F's in Baltic salmon") | ||
+ | |||
+ | ggplot(subset(resultsall@output, grepl("BDE", Congener) & grepl("Medianpost", variable)), aes(x = Congener, y = resultsallResult, fill = Congener)) + geom_bar(stat = "identity") + | ||
+ | labs(x = "Congener", y = "Concentration (pg/g fat)") + coord_flip() + ggtitle("Median posterior concentrations of BDE's in Baltic salmon") | ||
+ | |||
+ | ggplot(subset(teq@output, grepl("Medianpost", variable)), aes(x = Congener, y = Result, fill = Congener)) + geom_bar(stat = "identity") + | ||
+ | labs(x = "Congener", y = "TEQ (pg/g fat)") + coord_flip() + ggtitle("Median posterior TEQ of POPs in Baltic salmon") | ||
+ | |||
+ | </rcode> | ||
== Rationale == | == Rationale == |
Revision as of 10:38, 30 June 2016
This page is a variable.
The page identifier is Op_en7486 |
---|
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 the levels of persistent organic pollutants (POPs) in Baltic sea salmon?
Answer
Answer is under work and results are preliminary.
POP concentrations in Baltic sea fish have been measured from samples collected in EU-kalat project. The original data of individual fish samples is accessible through Opasnet base. This data is used here for a Bayesian model to calculate posterior concentration distributions (median and SD) for each congener. This data is then translated into TEQ, and can be used for health benefit assessment of Baltic salmon.
Posterior congener median concentrations are presented below for each compound group (PCDD/F, PCB, BDE) analysed in EU-kalat.
You can print out the numerical results of prior and posterior congener concentrations below. In addition the possible updated versions of the above figures are printed out.
Rationale
This model takes in measured congener concentrations of POPs in Baltic salmon in northern part of Baltic sea (Bothnian Bay, Bothnian Sea, Åland Sea, Gulf of Finland). Measured data is used for Bayesian model to produce posterior medians and sds for each congener and also to calculate TEQ values. Numerical results are saved as variables to Opasnetbase and result figures are presented above in the Answer section.
Rationale
Dependencies
Formula
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>