Health impacts of waterborne microbes: Difference between revisions
Jump to navigation
Jump to search
(→RCode) |
(→RCode) |
||
| (14 intermediate revisions by the same user not shown) | |||
| Line 28: | Line 28: | ||
Daily cold tap water use of Finns | Daily cold tap water use of Finns | ||
<rcode name="consumption"> | <rcode | ||
name="consumption" | |||
label="Initialize water use" | |||
embed=1 | |||
> | |||
# This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]] | # This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
| Line 34: | Line 38: | ||
Wateruse = Ovariable("Wateruse", data = data.frame(WateruseResult = 1153)) | Wateruse = Ovariable("Wateruse", data = data.frame(WateruseResult = 1153)) | ||
objects. | objects.store(Wateruse) | ||
cat("Ovariable Wateruse saved. \n") | |||
</rcode> | </rcode> | ||
<rcode name="rawconsumption"> | <rcode | ||
name="rawconsumption" | |||
label="Initialize raw consumption" | |||
embed=1 | |||
> | |||
# This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]] | # This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
| Line 51: | Line 59: | ||
objects.store(RawConsumption) | objects.store(RawConsumption) | ||
cat("Ovariable RawConsumption saved. \n") | |||
</rcode> | </rcode> | ||
Log decrease of concentration of microbes in drinking water due to water treatment | |||
<rcode | <rcode | ||
| Line 61: | Line 69: | ||
label="Initialize microbe log decrease" | label="Initialize microbe log decrease" | ||
graphics="1" | graphics="1" | ||
embed=1 | |||
> | > | ||
#This is code "Op_en7957/logdecrease" on page [[Health impacts of waterborne microbes]] | #This is code "Op_en7957/logdecrease" on page [[Health impacts of waterborne microbes]] | ||
| Line 68: | Line 77: | ||
MicrobeLogDecrease <- Ovariable("MicrobeLogDecrease", | MicrobeLogDecrease <- Ovariable("MicrobeLogDecrease", | ||
dependencies=data.frame( | dependencies=data.frame( | ||
Name=c("TreatmentEfficiency", " | Name=c("TreatmentEfficiency", "ChlorineEfficiency", "OzoneEfficiency", "UVEfficiency"), | ||
Ident=c("Op_en7954/variable", "Op_en7955/ | Ident=c("Op_en7954/variable", "Op_en7956/efficiency", "Op_en7955/ozefficiency", "Op_en7955/uvefficiency") | ||
), | ), | ||
formula=function(...){ | formula=function(...){ | ||
# Calculate the total log decrease of pathogen concentration from | # Calculate the total log decrease of pathogen concentration from treatment methods | ||
MicrobeLogDecrease <- oapply(TreatmentEfficiency, cols="TreatmentMethod", FUN=sum) | |||
MicrobeLogDecrease <- | # Then sum that with the disinfection methods to get the total microbe log decrease | ||
MicrobeLogDecrease <- MicrobeLogDecrease+ChlorineEfficiency+OzoneEfficiency+UVEfficiency | |||
# Then sum that with | |||
MicrobeLogDecrease <- MicrobeLogDecrease+ChlorineEfficiency | |||
return(MicrobeLogDecrease) | return(MicrobeLogDecrease) | ||
| Line 86: | Line 93: | ||
objects.store(MicrobeLogDecrease) | objects.store(MicrobeLogDecrease) | ||
cat("Ovariable MicrobeLogDecrease saved. \n") | |||
</rcode> | </rcode> | ||
Pathogen concentration in drinking water | |||
<rcode | <rcode | ||
name="pathconcentration" | name="pathconcentration" | ||
label="Initialize | label="Initialize pathogen concentration" | ||
graphics="1" | graphics="1" | ||
embed=1 | |||
> | > | ||
#This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]] | #This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
TreatedConcentration <- Ovariable("TreatedConcentration", dependencies = data.frame( | |||
Name=c("RawConcentration", "MicrobeLogDecrease"), | |||
Ident=c("Op_en7953/variable", "Op_en7957/logdecrease") | |||
), | |||
formula = function(...){ | |||
# Calculate the concentration of bacteria after treatment from log decrease | |||
out <- RawConcentration * 10 ^(-1*(MicrobeLogDecrease)) | |||
return(out) | |||
}) | |||
objects.store(TreatedConcentration) | |||
cat("Ovariable TreatedConcentration saved. \n") | |||
</rcode> | </rcode> | ||
| Line 108: | Line 128: | ||
The amount of pathogens an average water consumer is exposed to in a day | The amount of pathogens an average water consumer is exposed to in a day | ||
<rcode name="exposure"> | <rcode | ||
name="exposure" | |||
label="Initialize exposure" | |||
embed=1 | |||
> | |||
#This is code "Op_en7957/exposure" on page [[Health impacts of waterborne microbes]] | #This is code "Op_en7957/exposure" on page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
exposure <- Ovariable("exposure", | |||
dependencies = data.frame( | dependencies = data.frame( | ||
Name = c("TreatedConcentration", "RawConsumption"), | Name = c("TreatedConcentration", "RawConsumption"), | ||
| Line 118: | Line 142: | ||
), | ), | ||
formula = function(...){ | formula = function(...){ | ||
return( | out <- TreatedConcentration * RawConsumption | ||
colnames(out@output)[colnames(out@output) == "Pathogen"] <- "Exposure_agent" | |||
return(out) | |||
} | } | ||
) | ) | ||
objects.store( | objects.store(exposure) | ||
cat("Ovariable exposure saved. \n") | |||
</rcode> | </rcode> | ||
Latest revision as of 10:10, 11 September 2019
| Moderator:Heta (see all) |
|
|
| Upload data
|
Question
What are the health impacts of waterborne microbes in drinking water?
Answer
Rationale
Data
Health impacts of waterborne microbes depends on the following parameters:
- Exposure to pathogens
- Drinking water consumption
- Concentrations of pathogens in drinking water
Calculations
RCode
Daily cold tap water use of Finns
Log decrease of concentration of microbes in drinking water due to water treatment
Pathogen concentration in drinking water
The amount of pathogens an average water consumer is exposed to in a day
See also
- Water guide
- http://permanent.access.gpo.gov/lps35390/cfpub.epa.gov/ncea/cfm/recordisplay.cfm-deid=55145.htm
- Finley, B., Proctor, D., Scott, P., Harrington, N., Paustenbach, D., Price, P. 1994. Recommended distributions for exposure factors frequently used in health risk assessment. Risk Analysis 14(4), 533-553.
- Havelaar, A. and Melse, J. M. (2003). Quantifying public health risk in the WHO Guidelines for Drinking‐ Water Quality: a burden of disease approach. RIVM raport 734301022. Bilthoven, RIVM.