Health impacts of waterborne microbes: Difference between revisions

Latest revision as of 10:10, 11 September 2019

This page is a knowledge crystal of subtype variable. The page identifier is Op_en7957
Moderator:Heta (see all)

Upload data {{#opasnet_base_link:Op_en7957}}

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

+ Show code - Hide code

# This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]]
library(OpasnetUtils)

Wateruse = Ovariable("Wateruse", data = data.frame(WateruseResult = 1153))

objects.store(Wateruse)
cat("Ovariable Wateruse saved. \n")

+ Show code - Hide code

# This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]]
library(OpasnetUtils)

RawConsumption <- Ovariable("RawConsumption",
                            dependencies = data.frame(Name = c("Wateruse"), Ident = c("Op_en7957/consumption")),
                            formula = function(...){
                              return(2 / 3 * Wateruse / 1000)  # 2/3 consumed unboiled. Converted into liters.
                            }
)

objects.store(RawConsumption)
cat("Ovariable RawConsumption saved. \n")

Log decrease of concentration of microbes in drinking water due to water treatment

+ Show code - Hide code

#This is code "Op_en7957/logdecrease" on page [[Health impacts of waterborne microbes]]
library(OpasnetUtils)

	
MicrobeLogDecrease <- Ovariable("MicrobeLogDecrease",
                                dependencies=data.frame(
                                  Name=c("TreatmentEfficiency", "ChlorineEfficiency", "OzoneEfficiency", "UVEfficiency"),
                                  Ident=c("Op_en7954/variable", "Op_en7956/efficiency", "Op_en7955/ozefficiency", "Op_en7955/uvefficiency")
                                ),
                                formula=function(...){
                                  # Calculate the total log decrease of pathogen concentration from treatment methods
                                  MicrobeLogDecrease <- oapply(TreatmentEfficiency, cols="TreatmentMethod", FUN=sum)
                                  # Then sum that with the disinfection methods to get the total microbe log decrease
                                  MicrobeLogDecrease <- MicrobeLogDecrease+ChlorineEfficiency+OzoneEfficiency+UVEfficiency
                                  
                                  return(MicrobeLogDecrease)
                                }


)

objects.store(MicrobeLogDecrease)
cat("Ovariable MicrobeLogDecrease saved. \n")

Pathogen concentration in drinking water

+ Show code - Hide code

#This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]]
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")

The amount of pathogens an average water consumer is exposed to in a day

+ Show code - Hide code

#This is code "Op_en7957/exposure" on page [[Health impacts of waterborne microbes]]
library(OpasnetUtils)

exposure <- Ovariable("exposure", 
                      dependencies = data.frame(
                        Name = c("TreatedConcentration", "RawConsumption"),
                        Ident = c("Op_en7957/pathconcentration", "Op_en7957/rawconsumption")
                        ),
                      formula = function(...){
                        out <- TreatedConcentration * RawConsumption
                        colnames(out@output)[colnames(out@output) == "Pathogen"] <- "Exposure_agent"
                        return(out)
                      }
)

objects.store(exposure)
cat("Ovariable exposure saved. \n")

Health impacts of waterborne microbes: Difference between revisions

Latest revision as of 10:10, 11 September 2019

Contents

Question

Answer

Rationale

Data

Calculations

RCode

See also

Navigation menu

@@ Line 26: / Line 26: @@
 ==== RCode ====
-How much cold tap water Finns use per day?
+Daily cold tap water use of Finns
-<rcode name="consumption">
+<rcode
-# This is code Op_en:/consumption on page [[Health impacts of waterborne microbes]]
+       name="consumption"
+       label="Initialize water use"
+       embed=1
+>
+# This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]]
 library(OpasnetUtils)
-Wateruse = Ovariable("Wateruse", data = data.frame(WateruseResult = 1153), save = TRUE)
+Wateruse = Ovariable("Wateruse", data = data.frame(WateruseResult = 1153))
+objects.store(Wateruse)
+cat("Ovariable Wateruse saved. \n")
-oprint(Wateruse)
 </rcode>
+<rcode
+        name="rawconsumption"
+        label="Initialize raw consumption"
+	embed=1
+>
+# This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]]
+library(OpasnetUtils)
+RawConsumption <- Ovariable("RawConsumption",
+                            dependencies = data.frame(Name = c("Wateruse"), Ident = c("Op_en7957/consumption")),
+                            formula = function(...){
+                              return(2 / 3 * Wateruse / 1000)  # 2/3 consumed unboiled. Converted into liters.
+                            }
+)
-<rcode name="rawconsumption">
+objects.store(RawConsumption)
-# This is code Op_en:/rawconsumption in page [[Health impacts of waterborne microbes]]
+cat("Ovariable RawConsumption saved. \n")
+</rcode>
+Log decrease of concentration of microbes in drinking water due to water treatment
+<rcode
+	name="logdecrease"
+	label="Initialize microbe log decrease"
+	graphics="1"
+	embed=1
+>
+#This is code "Op_en7957/logdecrease" on page [[Health impacts of waterborne microbes]]
 library(OpasnetUtils)
-dependencies = data.frame(
-	Name = c("Wateruse"),
+MicrobeLogDecrease <- Ovariable("MicrobeLogDecrease",
-	Ident = c("Op_fi1757/consumption")
+                                dependencies=data.frame(
+                                  Name=c("TreatmentEfficiency", "ChlorineEfficiency", "OzoneEfficiency", "UVEfficiency"),
+                                  Ident=c("Op_en7954/variable", "Op_en7956/efficiency", "Op_en7955/ozefficiency", "Op_en7955/uvefficiency")
+                                ),
+                                formula=function(...){
+                                  # Calculate the total log decrease of pathogen concentration from treatment methods
+                                  MicrobeLogDecrease <- oapply(TreatmentEfficiency, cols="TreatmentMethod", FUN=sum)
+                                  # Then sum that with the disinfection methods to get the total microbe log decrease
+                                  MicrobeLogDecrease <- MicrobeLogDecrease+ChlorineEfficiency+OzoneEfficiency+UVEfficiency
+                                  return(MicrobeLogDecrease)
+                                }
 )
-function = function(...){
+objects.store(MicrobeLogDecrease)
-		return(2 / 3 * Wateruse / 1000) # 2/3 consumed unboiled. Converted into liters.
+cat("Ovariable MicrobeLogDecrease saved. \n")
-}
+</rcode>
+Pathogen concentration in drinking water
+<rcode
+	name="pathconcentration"
+	label="Initialize pathogen concentration"
+	graphics="1"
+	embed=1
+>
+#This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]]
+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)
-RawConsumption <- Ovariable("RawConsumption", dependencies = dependencies, formula = function, save = TRUE)
+cat("Ovariable TreatedConcentration saved. \n")
-oprint(RawConsumption)
 </rcode>
+The amount of pathogens an average water consumer is exposed to in a day
+<rcode
+         name="exposure"
+         label="Initialize exposure"
+	 embed=1
+>
+#This is code "Op_en7957/exposure" on page [[Health impacts of waterborne microbes]]
+library(OpasnetUtils)
+exposure <- Ovariable("exposure",
+                      dependencies = data.frame(
+                        Name = c("TreatedConcentration", "RawConsumption"),
+                        Ident = c("Op_en7957/pathconcentration", "Op_en7957/rawconsumption")
+                        ),
+                      formula = function(...){
+                        out <- TreatedConcentration * RawConsumption
+                        colnames(out@output)[colnames(out@output) == "Pathogen"] <- "Exposure_agent"
+                        return(out)
+                      }
+)
+objects.store(exposure)
+cat("Ovariable exposure saved. \n")
+</rcode>
+== 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. [http://www.ncbi.nlm.nih.gov/pubmed/7972957 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.