Health impacts of waterborne microbes: Difference between revisions
Jump to navigation
Jump to search
(→RCode) |
(→RCode) |
||
| (6 intermediate revisions by the same user not shown) | |||
| Line 31: | Line 31: | ||
name="consumption" | name="consumption" | ||
label="Initialize water use" | 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]] | ||
| Line 45: | Line 46: | ||
name="rawconsumption" | name="rawconsumption" | ||
label="Initialize raw consumption" | 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]] | ||
| Line 58: | Line 60: | ||
objects.store(RawConsumption) | objects.store(RawConsumption) | ||
cat("Ovariable RawConsumption saved. \n") | cat("Ovariable RawConsumption saved. \n") | ||
</rcode> | </rcode> | ||
| Line 83: | 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 90: | 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 118: | Line 103: | ||
label="Initialize pathogen concentration" | 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]] | ||
| Line 123: | Line 109: | ||
TreatedConcentration <- Ovariable("TreatedConcentration", dependencies = data.frame( | TreatedConcentration <- Ovariable("TreatedConcentration", dependencies = data.frame( | ||
Name=c("RawConcentration", "MicrobeLogDecrease | Name=c("RawConcentration", "MicrobeLogDecrease"), | ||
Ident=c("Op_en7953/variable", "Op_en7957/logdecrease | Ident=c("Op_en7953/variable", "Op_en7957/logdecrease") | ||
), | ), | ||
formula = function(...){ | formula = function(...){ | ||
# Calculate the concentration of bacteria after treatment from log decrease | # Calculate the concentration of bacteria after treatment from log decrease | ||
out <- RawConcentration * 10 ^(-1*(MicrobeLogDecrease)) | out <- RawConcentration * 10 ^(-1*(MicrobeLogDecrease)) | ||
| Line 147: | Line 131: | ||
name="exposure" | name="exposure" | ||
label="Initialize 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 157: | Line 142: | ||
), | ), | ||
formula = function(...){ | formula = function(...){ | ||
out <- TreatedConcentration * RawConsumption | |||
colnames(out@output)[colnames(out@output) == "Pathogen"] <- "Exposure_agent" | |||
return(out) | |||
} | } | ||
) | ) | ||
objects.store( | objects.store(exposure) | ||
cat("Ovariable | 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.