Health impacts of waterborne microbes: Difference between revisions

Revision as of 09:20, 17 July 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")

The raw water default class: Surface water - high contamination

+ Show code - Hide code

# This is code "Op_en 7957/rawclass" on page [[Health impact of waterborne microbes]]
library(OpasnetUtils)

RawClass <- Ovariable("RawClass", data=data.frame(RawWaterClass = "Surface water - high contamination", RawClassResult = 1))

objects.store(RawClass)
cat("Ovariable RawClass 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", "Disinfection", "ChlorineEfficiency"),
                                  Ident=c("Op_en7954/variable", "Op_en7955/variable", "Op_en7956/efficiency")
                                ),
                                formula=function(...){
                                  # Calculate the total log decrease of pathogen concentration from disinfection and other treatment
                                  # methods, then sum them to get the total not including chlorination
                                  MicrobeLogDecrease <- oapply(Disinfection, cols="TreatmentMethod", FUN=sum) +
                                    oapply(TreatmentEfficiency, cols="TreatmentMethod", FUN=sum)
                                  # Then sum that with chlorination to get the total microbe log decrease
                                  MicrobeLogDecrease <- MicrobeLogDecrease+ChlorineEfficiency
                                  
                                  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", "RawClass"),
                                  Ident=c("Op_en7953/variable", "Op_en7957/logdecrease", "Op_en7957/rawclass")
                                  ),
                                  formula = function(...){
                                    # Use the rows of RawConcentration with the right type of raw water
                                    RawConcentration <- RawConcentration*RawClass
                                    
                                    # 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(...){
                        return(TreatedConcentration * RawConsumption)
                      }
)

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

@@ Line 31: / Line 31: @@
         name="consumption"
         label="Initialize water use"
+       embed=1
 >
 # This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]]
@@ Line 45: / Line 46: @@
          name="rawconsumption"
          label="Initialize raw consumption"
+	embed=1
 >
 # This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]]
@@ Line 64: / Line 66: @@
 <rcode
-name="rawclass"
+        name="rawclass"
-label="Initialize raw water class"
+        label="Initialize raw water class"
+	embed=1
 >
 # This is code "Op_en 7957/rawclass" on page [[Health impact of waterborne microbes]]
@@ Line 83: / Line 86: @@
 	label="Initialize microbe log decrease"
 	graphics="1"
+	embed=1
 >
 #This is code "Op_en7957/logdecrease" on page [[Health impacts of waterborne microbes]]
@@ Line 96: / Line 100: @@
                                    # Calculate the total log decrease of pathogen concentration from disinfection and other treatment
                                    # methods, then sum them to get the total not including chlorination
-                                   MicrobeLogDecrease <- oapply(Disinfection, cols="DisinfectionMethod", FUN=sum) +
+                                   MicrobeLogDecrease <- oapply(Disinfection, cols="TreatmentMethod", FUN=sum) +
                                      oapply(TreatmentEfficiency, cols="TreatmentMethod", FUN=sum)
                                    # Then sum that with chlorination to get the total microbe log decrease
@@ Line 118: / Line 122: @@
 	label="Initialize pathogen concentration"
 	graphics="1"
+	embed=1
 >
 #This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]]
@@ Line 147: / Line 152: @@
           name="exposure"
           label="Initialize exposure"
+	 embed=1
 >
 #This is code "Op_en7957/exposure" on page [[Health impacts of waterborne microbes]]

Health impacts of waterborne microbes: Difference between revisions

Revision as of 09:20, 17 July 2019

Contents

Question

Answer

Rationale

Data

Calculations

RCode

See also

Navigation menu