Difference between revisions of "POPs in Baltic herring"
From Testiwiki
m (→Answer: test with Bayes added) |
m (→Answer) |
||
Line 18: | Line 18: | ||
dat <- dat[dat$POP == "2378TCDD" , ] | dat <- dat[dat$POP == "2378TCDD" , ] | ||
dat <- dat[dat$Fish_species == "Baltic herring" , ] | dat <- dat[dat$Fish_species == "Baltic herring" , ] | ||
+ | |||
#Bayesian test based on http://doingbayesiandataanalysis.blogspot.fi/2013/04/bayesian-estimation-of-log-normal.html | #Bayesian test based on http://doingbayesiandataanalysis.blogspot.fi/2013/04/bayesian-estimation-of-log-normal.html | ||
Line 42: | Line 43: | ||
) | ) | ||
− | jags <- jags.model(mo, data = dataList, n.chains = 4, n.adapt = | + | jags <- jags.model(mo, data = dataList, n.chains = 4, n.adapt = 100) |
close(mo) | close(mo) | ||
− | update(jags, | + | update(jags, 100) |
out <- coda.samples(jags, c('sigmaOfTCDD', 'muOfTCDD'), nrow(dat)) # Stores a posterior sample | out <- coda.samples(jags, c('sigmaOfTCDD', 'muOfTCDD'), nrow(dat)) # Stores a posterior sample |
Revision as of 11:03, 11 February 2016
This page is a variable.
The page identifier is Op_en2583 |
---|
Moderator:Nobody (see all) Click here to sign up. |
Give your opinion to the peer rating of the content of this page. |
Upload data
|
Contents
Question
What are the concentrations of persistent organic pollutants (POPs) in Baltic sea fish.
Answer
POP concentrations in Baltic sea fish have been measured from samples collected in EU-kalat project.
Rationale
See also
References