Bathing water guide: Difference between revisions
(Created page with "Category:Open model Category:Model Category:Contains R-code {{method|moderator:Heta}} == Question == How to asses the microbiological risks of natural bathing wa...") |
No edit summary |
||
Line 10: | Line 10: | ||
== Answer == | == Answer == | ||
The model below is already functional. However, there is still work to do to ensure that the input data the model uses is accurate. For example the pathogen concentrations in different bathing water classes is unclear, and obviously greatly affects the health effects of bathing in natural waters. | |||
<rcode | <rcode | ||
name=" | name="bathingwaterguide" | ||
label=" | label="Run model" | ||
embed=0 | embed=0 | ||
graphics=1 | graphics=1 | ||
variables=" | variables=" | ||
name:rawclass|description: | name:rawclass|description:Bathing water classification|type:selection| | ||
options: | options: | ||
'Surface water - low contamination'; | 'Surface water - low contamination';Low contamination; | ||
'Surface water - medium contamination'; | 'Surface water - medium contamination';Medium contamination; | ||
'Surface water - high contamination'; | 'Surface water - high contamination';High contamination; | ||
'Hand input'; | 'Hand input';I will give pathogen concentrations by hand| | ||
default:'Hand input'| | default:'Hand input'| | ||
category: | category:Situation| | ||
name:total_population|default:100|description: | name:total_population|default:100|description:Beach goers per day| | ||
name:Campylo|description: | name:Campylo|description:Campylobacter concentration (microbes/l)|default:0| | ||
category: | category:Microbe concentration of bathing water| | ||
category_conditions:rawclass;'User'| | category_conditions:rawclass;'User'| | ||
name:E.coli|description:E.coli O157:H7 | name:E.coli|description:E.coli O157:H7 concentration (microbes/l)|default:0| | ||
name:Rota|description: | name:Rota|description:Rotavirus concentration (microbes/l)|default:0| | ||
name:Noro|description: | name:Noro|description:Norovirus concentration (microbes/l)|default:0| | ||
name:Crypto|description: | name:Crypto|description:Cryptosporidium concentration (microbes/l)|default:0| | ||
name:Giardia|description: | name:Giardia|description:Giardia pitoisuus (microbes/l)|default:0 | ||
" | " | ||
> | > | ||
# | # This is code "Op_en7961/bathingwaterguide" on page [[Bathing water guide]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(ggplot2) | library(ggplot2) | ||
objects.latest(" | objects.latest("Op_en7961", code_name="initialization") # [[Bathing water guide]] fetches the variables needed in the model | ||
# | # Create variables from input data | ||
RawClass <- Ovariable("RawClass", data=data.frame(RawWaterClass = rawclass, Result=1)) | RawClass <- Ovariable("RawClass", data=data.frame(RawWaterClass = rawclass, Result=1)) | ||
# | # If microbe concentrations are given by hand, they're put into an ovariable | ||
if (rawclass == "Hand input") { | if (rawclass == "Hand input") { | ||
RawConcentration <- Ovariable( | RawConcentration <- Ovariable( | ||
Line 81: | Line 79: | ||
formula=function (...) { | formula=function (...) { | ||
distribution <- Ovariable( | distribution <- Ovariable( | ||
ddata=" | ddata="Op_en7961", subset="Beachgoers' age distribution" | ||
) | ) | ||
distribution <- EvalOutput(distribution) | distribution <- EvalOutput(distribution) | ||
Line 97: | Line 95: | ||
BoDattr <- EvalOutput(BoDattr, forceEval=TRUE) | BoDattr <- EvalOutput(BoDattr, forceEval=TRUE) | ||
cat(" | cat("Microbe concentrations in bathing water, microbes/liter. \n") | ||
oprint(RawConcentration@output[,c("Pathogen", "RawConcentrationResult")]) | oprint(RawConcentration@output[,c("Pathogen", "RawConcentrationResult")]) | ||
cat(" | cat("Exposure: how many of each microbe people of different ages swallow with bathing water.\n") | ||
oprint(summary(exposure)) | oprint(summary(exposure)) | ||
Line 109: | Line 107: | ||
theme_gray(base_size=24)+ | theme_gray(base_size=24)+ | ||
labs( | labs( | ||
title=" | title="Burden of disease of bathing water microbes per day", | ||
subtitle=paste(" | subtitle=paste("on a beach of", sum(result(population)), "bathers daily"), | ||
y = " | y = "Burden of disease (DALY/day)", | ||
x = " | x = "Microbe" | ||
) | ) | ||
# | # number of cases | ||
cases <- BoDattr/case_burden | cases <- BoDattr/case_burden | ||
Line 125: | Line 123: | ||
theme_gray(base_size=24)+ | theme_gray(base_size=24)+ | ||
labs( | labs( | ||
title=" | title="Cases of illness caused daily by bathing water microbes", | ||
subtitle=paste(" | subtitle=paste("on a beach of", sum(result(population)), "bathers daily"), | ||
y = " | y = "Cases per day", | ||
x = " | x = "Microbe" | ||
) | ) | ||
# | # cases as percent of beachgoers | ||
cases_percent <- cases*100/total_population | cases_percent <- cases*100/total_population | ||
Line 141: | Line 139: | ||
theme_gray(base_size=24)+ | theme_gray(base_size=24)+ | ||
labs( | labs( | ||
title=" | title="Proportion of bathers who get ill from bathing water microbes", | ||
subtitle=paste(" | subtitle=paste("on a beach of", sum(result(population)), "bathers daily"), | ||
y = " | y = "Percent of bathers", | ||
x = " | x = "Microbe" | ||
) | ) | ||
</rcode> | </rcode> | ||
: " | : "Run model" -button opens a new tab, on which the results will appear after the model is done running. Current running time is 1-2 minutes. | ||
== | == Rationale == | ||
=== Data === | === Data === | ||
''' | '''Amount of water swallowed, ml/h''' | ||
{| {{prettytable}} | {| {{prettytable}} | ||
! | ! Reference !! Adults !! Children !! Notes | ||
|---- | |---- | ||
| Dufour et al. 2006 <ref> Dufour et al. 2006. Water ingestion during swimming activities in a pool: a pilot study. J Water Health (2006) 4 (4): 425-430. [https://doi.org/10.2166/wh.2006.0026] </ref> | | Dufour et al. 2006 <ref> Dufour et al. 2006. Water ingestion during swimming activities in a pool: a pilot study. J Water Health (2006) 4 (4): 425-430. [https://doi.org/10.2166/wh.2006.0026] </ref> | ||
| 0 - 70,67 ( | | 0 - 70,67 (avg 21,33) | ||
| 0 - 205,33 ( | | 0 - 205,33 (avg 49,33) | ||
| | | They measured cleaning chemicals added to the pool water from the bathers' urine | ||
|---- | |---- | ||
| Dufour et al. 2017 <ref> Dufour et al. 2017. Ingestion of swimming pool water by recreational swimmers. J Water Health (2017) 15 (3): 429-437. [https://doi.org/10.2166/wh.2017.255]</ref> | | Dufour et al. 2017 <ref> Dufour et al. 2017. Ingestion of swimming pool water by recreational swimmers. J Water Health (2017) 15 (3): 429-437. [https://doi.org/10.2166/wh.2017.255]</ref> | ||
| 12,4 (CI95 11-14) | | 12,4 (CI95 11-14) | ||
| 6-10 | | 6-10-year-olds: 23,9 (CI95 17-33) | ||
11-15 vuotiaat: 23,7 (CI95 19-30) | 11-15 vuotiaat: 23,7 (CI95 19-30) | ||
| | | Same as previous, but with a bigger sample size | ||
|---- | |---- | ||
| Suppes et al. 2013 <ref> Suppes et al. 2013. Assessment of swimmer behaviors on pool water ingestion. J Water Health (2013) 12 (2): 269-279. [https://doi.org/10.2166/wh.2013.123]</ref> | | Suppes et al. 2013 <ref> Suppes et al. 2013. Assessment of swimmer behaviors on pool water ingestion. J Water Health (2013) 12 (2): 269-279. [https://doi.org/10.2166/wh.2013.123]</ref> | ||
| 0 - 50,9 ( | | 0 - 50,9 (avg 3,5) | ||
| 0,9 - 105,5 ( | | 0,9 - 105,5 (avg 25,7) | ||
| | | Also measuring chemicals in urine | ||
|---- | |---- | ||
| Suppes et al. 2016 <ref> Suppes et al. 2016. Cryptosporidium risk from swimming pool exposures. International Journal of Hygiene and Environmental Health 219(8):915-919 [https://doi.org/10.1016/j.ijheh.2016.07.001]</ref> | | Suppes et al. 2016 <ref> Suppes et al. 2016. Cryptosporidium risk from swimming pool exposures. International Journal of Hygiene and Environmental Health 219(8):915-919 [https://doi.org/10.1016/j.ijheh.2016.07.001]</ref> | ||
| 0 - 60,6 ( | | 0 - 60,6 (avg 6,3) | ||
| 0 - 105,5 ( | | 0 - 105,5 (avg 24,2) | ||
| | | Same methods as the previous one | ||
|--- | |--- | ||
| Schets et al. 2011 <ref> Schets et al. 2011. Exposure assessment for swimmers in bathing waters and swimming pools. Water Research 45:2392-2400. [https://doi.org/10.1016/j.watres.2011.01.025]</ref> | | Schets et al. 2011 <ref> Schets et al. 2011. Exposure assessment for swimmers in bathing waters and swimming pools. Water Research 45:2392-2400. [https://doi.org/10.1016/j.watres.2011.01.025]</ref> | ||
| 20 - 30 | | 20 - 30 | ||
| 28 | | 28 | ||
| | | Questionnaire. These values are for fresh water, but the study also looked at values for sea and pool water. Values are averages (20 for women, 30 for men). | ||
|---- | |---- | ||
| DeFlorio-Barker et al. 2018 <ref> DeFlorio-Barker et al. 2018. Child environmental exposures to water and sand at the beach: Findings from studies of over 68,000 subjects at 12 beaches. Journal of Exposure Science and Environmental Epidemiology 28:93–100 [https://www.nature.com/articles/jes201723]</ref> | | DeFlorio-Barker et al. 2018 <ref> DeFlorio-Barker et al. 2018. Child environmental exposures to water and sand at the beach: Findings from studies of over 68,000 subjects at 12 beaches. Journal of Exposure Science and Environmental Epidemiology 28:93–100 [https://www.nature.com/articles/jes201723]</ref> | ||
| n. 0 - 114 (keskiarvo n. 16) | | n. 0 - 114 (keskiarvo n. 16) | ||
| n. 0.7 - 144 (keskiarvo n. 27) | | n. 0.7 - 144 (keskiarvo n. 27) | ||
| | | Quistionnaire, simulations of amounts of swallowed water based on behavior and Dufour (2017) values. | ||
|} | |} | ||
''' | '''Time spent in water (min) | ||
{| {{prettytable}} | {| {{prettytable}} | ||
! | ! Reference !! Adults !! Children !! Notes | ||
|---- | |---- | ||
| Dufour et al. 2017 | | Dufour et al. 2017 | ||
| 50,3 (CI95 49-52) | | 50,3 (CI95 49-52) | ||
| 6-10 | | 6-10-year.olds: 95,9 (CI95 88-104) | ||
11-15 | 11-15-year-olds: 55,8 (CI95 55-59) | ||
| | | | ||
|---- | |---- | ||
| Suppes et al. 2016 | | Suppes et al. 2016 | ||
| 20 - 240 ( | | 20 - 240 (avg 72) | ||
| 30 - 480 ( | | 30 - 480 (avg 114) | ||
| | | | ||
|---- | |---- | ||
Line 213: | Line 211: | ||
|---- | |---- | ||
| DeFlorio-Barker et al. 2018 | | DeFlorio-Barker et al. 2018 | ||
| 1-360 ( | | 1-360 (avg 45,4-47) | ||
| 0-3 | | 0-3-year-olds: 2 - 300 (avg 56-66,7) | ||
4-18 | 4-18-year-olds: 1 - 360 (avg 64-93) | ||
| | | | ||
|} | |} | ||
The data for the tables below is from DeFlorio-Barker et al. 2018, and is the data the model uses. | |||
<t2b name=" | <t2b name="Swallowed water" index = "Age" unit = "l/h"> | ||
age 0-4|0.024(0.0005-0.087) | age 0-4|0.024(0.0005-0.087) | ||
age 5-9|0.024(0.0005-0.087) | age 5-9|0.024(0.0005-0.087) | ||
Line 232: | Line 230: | ||
</t2b> | </t2b> | ||
<t2b name=" | <t2b name="Bathing time" index = "Age" unit = "h"> | ||
age 0-4|0.5-1.5 | age 0-4|0.5-1.5 | ||
age 5-9|0.75-2 | age 5-9|0.75-2 | ||
Line 242: | Line 240: | ||
</t2b> | </t2b> | ||
<t2b name=" | The table below shows an estimate of the age distribution of beachgoers. The data in the table is provided by Finnish Swimming Teaching and Lifesaving Federation, and is a very, very rough estimate of the age distribution. No data is currently collected of the age distribution of beachgoers. | ||
Some arguments for this distribution: | |||
*0-4-year-olds only go to the beach with 25-64-year-olds (also to a much lesser extent with the 65-79-year-olds). | |||
*25-64-year-olds cover 40 years, so even though this is a group of people working and spending time at summer cottages, the total proportion is probably 0.2 | |||
*Due to the lack of any real statistics, there is nothing to suggest differences in proportions between the age groups covering 5-64-year-olds. | |||
*The children and young adults between ages 5-24 might well cover 60% of the beachgoers, also depending on any possible activities on the beach, such as a tower with diving platforms. | |||
<t2b name="Beachgoers' age distribution" index = "Age" unit="-"> | |||
age 0-4|0.1 | age 0-4|0.1 | ||
age 5-9|0.2 | age 5-9|0.2 | ||
Line 252: | Line 258: | ||
</t2b> | </t2b> | ||
=== | === Calculations === | ||
<rcode | <rcode | ||
name=" | name="swallowed_water" | ||
embed=1 | embed=1 | ||
label=" | label="Initialize the about of water swallowed" | ||
> | > | ||
# | # This is code "Op_en7961/swallowed_water" on page [[Bathing water guide]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
swallowedwater <- Ovariable("swallowedwater", ddata="Op_en7961", subset="Swallowed water") | |||
bathingtime <- Ovariable("bathingtime", ddata="Op_en7961", subset="Bathing time") | |||
Consumption <- Ovariable( | Consumption <- Ovariable( | ||
"Consumption", | "Consumption", | ||
Dependencies=data.frame( | Dependencies=data.frame( | ||
Names=c(" | Names=c("bathingtime", "swallowedwater")), | ||
formula=function(...){ | formula=function(...){ | ||
return( | return(bathingtime*swallowedwater) | ||
} | } | ||
) | ) | ||
objects.store(Consumption, | objects.store(Consumption, swallowedwater, bathingtime) | ||
#oprint(EvalOutput(Consumption)@output, show_all=TRUE) | #oprint(EvalOutput(Consumption)@output, show_all=TRUE) | ||
cat(" | cat("Ovariables Consumption, swallowedwater and bathingtime saved. \n") | ||
</rcode> | </rcode> | ||
Line 290: | Line 289: | ||
<rcode | <rcode | ||
name=" | name="initialization" | ||
label=" | label="Initialize bathing water model" | ||
embed=0 | embed=0 | ||
graphics=1 | graphics=1 | ||
> | > | ||
# This is code | # This is code Op_en7961/initialization on page [[Bathing water guide]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(ggplot2) | library(ggplot2) | ||
Line 316: | Line 315: | ||
dependencies=data.frame( | dependencies=data.frame( | ||
Name=c("Consumption", "RawConcentration"), | Name=c("Consumption", "RawConcentration"), | ||
Ident=c(" | Ident=c("Op_en7961/swallowed_water", "Op_en7953/variable") | ||
), | ), | ||
formula = function(...) { | formula = function(...) { | ||
Line 369: | Line 368: | ||
</rcode> | </rcode> | ||
== | == See also == | ||
* [[ | * [[Water guide]] | ||
* EU- | * Quality classification of bathing waters based on an EU-directive [https://www.finlex.fi/data/sdliite/liite/5516.pdf] (An appendix of [https://www.finlex.fi/fi/laki/alkup/2008/20080177|a decree] of the ministry of social affairs and health) | ||
* A Randomized Controlled Trial Assessing Infectious Disease Risks from Bathing in Fresh Recreational Waters in Relation to the Concentration of Escherichia coli, Intestinal Enterococci, Clostridium perfringens, and Somatic Coliphages [https://doi.org/10.1289/ehp.8115] | * A Randomized Controlled Trial Assessing Infectious Disease Risks from Bathing in Fresh Recreational Waters in Relation to the Concentration of Escherichia coli, Intestinal Enterococci, Clostridium perfringens, and Somatic Coliphages [https://doi.org/10.1289/ehp.8115] |
Revision as of 06:28, 27 August 2019
[show] |
---|
Question
How to asses the microbiological risks of natural bathing waters, and the health effects they have? Data on the water and bathing behaviour must be possible to give to the model as input.
Answer
The model below is already functional. However, there is still work to do to ensure that the input data the model uses is accurate. For example the pathogen concentrations in different bathing water classes is unclear, and obviously greatly affects the health effects of bathing in natural waters.
- "Run model" -button opens a new tab, on which the results will appear after the model is done running. Current running time is 1-2 minutes.
Rationale
Data
Amount of water swallowed, ml/h
Reference | Adults | Children | Notes |
---|---|---|---|
Dufour et al. 2006 [1] | 0 - 70,67 (avg 21,33) | 0 - 205,33 (avg 49,33) | They measured cleaning chemicals added to the pool water from the bathers' urine |
Dufour et al. 2017 [2] | 12,4 (CI95 11-14) | 6-10-year-olds: 23,9 (CI95 17-33)
11-15 vuotiaat: 23,7 (CI95 19-30) |
Same as previous, but with a bigger sample size |
Suppes et al. 2013 [3] | 0 - 50,9 (avg 3,5) | 0,9 - 105,5 (avg 25,7) | Also measuring chemicals in urine |
Suppes et al. 2016 [4] | 0 - 60,6 (avg 6,3) | 0 - 105,5 (avg 24,2) | Same methods as the previous one |
Schets et al. 2011 [5] | 20 - 30 | 28 | Questionnaire. These values are for fresh water, but the study also looked at values for sea and pool water. Values are averages (20 for women, 30 for men). |
DeFlorio-Barker et al. 2018 [6] | n. 0 - 114 (keskiarvo n. 16) | n. 0.7 - 144 (keskiarvo n. 27) | Quistionnaire, simulations of amounts of swallowed water based on behavior and Dufour (2017) values. |
Time spent in water (min)
Reference | Adults | Children | Notes |
---|---|---|---|
Dufour et al. 2017 | 50,3 (CI95 49-52) | 6-10-year.olds: 95,9 (CI95 88-104)
11-15-year-olds: 55,8 (CI95 55-59) |
|
Suppes et al. 2016 | 20 - 240 (avg 72) | 30 - 480 (avg 114) | |
Schets et al. 2011 | 54 (CI95 6-220) | 79 | |
DeFlorio-Barker et al. 2018 | 1-360 (avg 45,4-47) | 0-3-year-olds: 2 - 300 (avg 56-66,7)
4-18-year-olds: 1 - 360 (avg 64-93) |
The data for the tables below is from DeFlorio-Barker et al. 2018, and is the data the model uses.
Obs | Age | Result |
---|---|---|
1 | age 0-4 | 0.024(0.0005-0.087) |
2 | age 5-9 | 0.024(0.0005-0.087) |
3 | age 10-14 | 0.027(0.0005-0.113) |
4 | age 15-24 | 0.020(0.001-0.112) |
5 | age 25-64 | 0.014(0.0004-0.100) |
6 | age 65-79 | 0.013(0.0004-0.115) |
7 | age 80+ | 0.013(0.0004-0.115) |
Obs | Age | Result |
---|---|---|
1 | age 0-4 | 0.5-1.5 |
2 | age 5-9 | 0.75-2 |
3 | age 10-14 | 0.75-2 |
4 | age 15-24 | 0.5-2 |
5 | age 25-64 | 0.5-1.5 |
6 | age 65-79 | 0.5-1.5 |
7 | age 80+ | 0.5-1.5 |
The table below shows an estimate of the age distribution of beachgoers. The data in the table is provided by Finnish Swimming Teaching and Lifesaving Federation, and is a very, very rough estimate of the age distribution. No data is currently collected of the age distribution of beachgoers.
Some arguments for this distribution:
- 0-4-year-olds only go to the beach with 25-64-year-olds (also to a much lesser extent with the 65-79-year-olds).
- 25-64-year-olds cover 40 years, so even though this is a group of people working and spending time at summer cottages, the total proportion is probably 0.2
- Due to the lack of any real statistics, there is nothing to suggest differences in proportions between the age groups covering 5-64-year-olds.
- The children and young adults between ages 5-24 might well cover 60% of the beachgoers, also depending on any possible activities on the beach, such as a tower with diving platforms.
Obs | Age | Result |
---|---|---|
1 | age 0-4 | 0.1 |
2 | age 5-9 | 0.2 |
3 | age 10-14 | 0.2 |
4 | age 15-24 | 0.2 |
5 | age 25-64 | 0.2 |
6 | age 65-79 | 0.08 |
7 | age 80+ | 0.02 |
Calculations
See also
- Water guide
- Quality classification of bathing waters based on an EU-directive [7] (An appendix of decree of the ministry of social affairs and health)
- A Randomized Controlled Trial Assessing Infectious Disease Risks from Bathing in Fresh Recreational Waters in Relation to the Concentration of Escherichia coli, Intestinal Enterococci, Clostridium perfringens, and Somatic Coliphages [8]
- Detection of Cryptosporidium, Giardia and Enterocytozoon bieneusi in surface water, including recreational areas: a one-year prospective study [9]
Viitteet
- ↑ Dufour et al. 2006. Water ingestion during swimming activities in a pool: a pilot study. J Water Health (2006) 4 (4): 425-430. [1]
- ↑ Dufour et al. 2017. Ingestion of swimming pool water by recreational swimmers. J Water Health (2017) 15 (3): 429-437. [2]
- ↑ Suppes et al. 2013. Assessment of swimmer behaviors on pool water ingestion. J Water Health (2013) 12 (2): 269-279. [3]
- ↑ Suppes et al. 2016. Cryptosporidium risk from swimming pool exposures. International Journal of Hygiene and Environmental Health 219(8):915-919 [4]
- ↑ Schets et al. 2011. Exposure assessment for swimmers in bathing waters and swimming pools. Water Research 45:2392-2400. [5]
- ↑ DeFlorio-Barker et al. 2018. Child environmental exposures to water and sand at the beach: Findings from studies of over 68,000 subjects at 12 beaches. Journal of Exposure Science and Environmental Epidemiology 28:93–100 [6]