Difference between revisions of "EU-kalat"
From Testiwiki
m (→Result) |
(code with congener profile) |
||
| Line 2: | Line 2: | ||
| − | == | + | == Question == |
The scope is to estimate concentrations of persistent organic pollutants (POPs) including dioxin (PCDD/F), PCB and BDE in fish tissues. This study is part of the European Union research project <ref>[http://www.beneris.eu/ BENERIS in www]</ref> <ref>[http://en.opasnet.org/w/Beneris BENERIS in Opasnet]</ref>, in particular fish case study, Work Package3. Fish are caught from Finnish waters, the Baltic Sea, and rivers and lakes from inland areas. | The scope is to estimate concentrations of persistent organic pollutants (POPs) including dioxin (PCDD/F), PCB and BDE in fish tissues. This study is part of the European Union research project <ref>[http://www.beneris.eu/ BENERIS in www]</ref> <ref>[http://en.opasnet.org/w/Beneris BENERIS in Opasnet]</ref>, in particular fish case study, Work Package3. Fish are caught from Finnish waters, the Baltic Sea, and rivers and lakes from inland areas. | ||
| − | == | + | == Answer == |
| + | The results can be acquired from [http://en.opasnet.org/w/Special:Opasnet_Base?id=Op_en3104 Opasnet base]. | ||
| + | |||
| + | <rcode embed=1 graphics=1> | ||
| + | # This code is Op_en on page [[EU-kalat]]. | ||
| + | |||
| + | library(OpasnetUtils) | ||
| + | library(ggplot2) | ||
| + | eu <- Ovariable("eu", ddata = "Op_en3104", subset = "POPs") | ||
| + | eu <- EvalOutput(eu) | ||
| + | #levels(eu$POP) | ||
| + | eu <- eu[eu$Fish_species == "Baltic herring" , ] | ||
| + | tef <- Ovariable("tef", ddata = "Op_en4017", subset = "TEF values") | ||
| + | tef <- EvalOutput(tef) | ||
| + | colnames(eu@output)[colnames(eu@output) == "POP"] <- "Congener" | ||
| + | levels(eu$Congener) <- gsub("HCDD", "HxCDD", levels(eu$Congener)) | ||
| + | levels(eu$Congener) <- gsub("CoPCB", "PCB", levels(eu$Congener)) | ||
| + | #levels(eu$Congener) | ||
| + | euteq <- eu * tef | ||
| + | #head(euteq@output) | ||
| + | temp <- aggregate(euteq@output["Result"], by = euteq@output["Congener"], FUN = mean) | ||
| + | cat("Congener profile of Baltic herring.\n") | ||
| − | === | + | ggplot(temp, aes(x = Congener, y = Result, fill = Congener)) + geom_bar(stat = "identity") + coord_flip() |
| − | + | </rcode> | |
| − | == | + | == Rationale == |
| − | + | === Data === | |
| + | Data was collected between 2009-2010. The study contains years, tissue type, fish species, and fat content for each concentration measurement. Number of observations is 285. | ||
| − | + | There is a new study EU-kalat 3, which will produce results in 2016. | |
| − | |||
==See also== | ==See also== | ||
Revision as of 13:17, 10 May 2016
This page is a study.
The page identifier is Op_en3104 |
|---|
| Moderator:Olli (see all) |
|
Give your opinion to the peer rating of the content of this page. |
| Upload data
|
Question
The scope is to estimate concentrations of persistent organic pollutants (POPs) including dioxin (PCDD/F), PCB and BDE in fish tissues. This study is part of the European Union research project [1] [2], in particular fish case study, Work Package3. Fish are caught from Finnish waters, the Baltic Sea, and rivers and lakes from inland areas.
Answer
The results can be acquired from Opasnet base.
Rationale
Data
Data was collected between 2009-2010. The study contains years, tissue type, fish species, and fat content for each concentration measurement. Number of observations is 285.
There is a new study EU-kalat 3, which will produce results in 2016.
