Health impacts of waterborne microbes: Difference between revisions
Jump to navigation
Jump to search
(Created page with "Category:Drinking water Category:Water guide {{variable|moderator=Heta}} == Question == What are the health impacts of waterborne microbes in drinking water? == Ans...") |
No edit summary |
||
| Line 26: | Line 26: | ||
==== RCode ==== | ==== RCode ==== | ||
Daily cold tap water use of Finns | |||
<rcode name="consumption"> | <rcode name="consumption"> | ||
# This is code | # This is code Op_en7957/consumption on page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
| Line 39: | Line 39: | ||
<rcode name="rawconsumption"> | <rcode name="rawconsumption"> | ||
# This is code | # This is code Op_en7957/rawconsumption in page [[Health impacts of waterborne microbes]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
dependencies = data.frame( | dependencies = data.frame( | ||
Name = c("Wateruse"), | Name = c("Wateruse"), | ||
Ident = c(" | Ident = c("Op_en7957/consumption") | ||
) | ) | ||
| Line 55: | Line 55: | ||
oprint(RawConsumption) | oprint(RawConsumption) | ||
</rcode> | </rcode> | ||
Concentrations of pathogens in drinking water | |||
<rcode | |||
name="pathconcentration" | |||
label="Initialize variable" | |||
graphics="1" | |||
> | |||
#This is code "Op_en7957/pathconcentration" on page [[Health impacts of waterborne microbes]] | |||
library(OpasnetUtils) | |||
dependencies <- data.frame( | |||
Name = c("RawConcentration", "Disinfection", "TreatmentEfficiency", "ChlorineEfficiency"), | |||
Ident = c("Op_en7953/variable", "Op_en7955/variable", "Op_en7954/variable", "Op_en7956/efficiency") | |||
) | |||
funktio <- function(...) { | |||
#MicrobeLogDecrease <- combine(Disinfection, TreatmentEfficiency, ChlorineEfficiency, name = "MicrobeLogDecrease") | |||
#MicrobeLogDecrease@output[["TreatmentMethod"]][ | |||
# MicrobeLogDecrease@output[["MicrobeLogDecreaseSource"]] == "ChlorineEfficiencyF" | |||
#] <- "Chlorination" | |||
#MicrobeLogDecrease <- oapply(MicrobeLogDecrease, cols = c("TreatmentMethod", "ChlorineDoseSource"), FUN = sum, na.rm = TRUE) | |||
# Varo laskemasta kloorausta monesti | |||
#MicrobeLogDecrease@output <- fillna(MicrobeLogDecrease@output, colnames(MicrobeLogDecrease@output)[MicrobeLogDecrease@marginal]) | |||
MicrobeLogDecrease <- orbind(Disinfection, TreatmentEfficiency) | |||
MicrobeLogDecrease <- orbind(MicrobeLogDecrease, ChlorineEfficiency) | |||
MicrobeLogDecrease <- fillna(MicrobeLogDecrease, grep("Source$", colnames(MicrobeLogDecrease))) | |||
MicrobeLogDecrease$DisinfectionResult[is.na(MicrobeLogDecrease$DisinfectionResult)] <- 0 | |||
MicrobeLogDecrease$TreatmentEfficiencyResult[is.na(MicrobeLogDecrease$TreatmentEfficiencyResult)] <- 0 | |||
MicrobeLogDecrease$ChlorineEfficiencyResult[is.na(MicrobeLogDecrease$ChlorineEfficiencyResult)] <- 0 | |||
MicrobeLogDecrease$MicrobeLogDecreaseResult <- MicrobeLogDecrease$DisinfectionResult + | |||
MicrobeLogDecrease$TreatmentEfficiencyResult + MicrobeLogDecrease$ChlorineEfficiencyResult | |||
MicrobeLogDecrease <- Ovariable( | |||
"MicrobeLogDecrease", | |||
dependencies = data.frame( | |||
Name = c("Disinfection", "TreatmentEfficiency", "ChlorineEfficiency") | |||
), | |||
output = MicrobeLogDecrease | |||
) | |||
MicrobeLogDecrease <- CheckMarginals(MicrobeLogDecrease, verbose = FALSE) | |||
MicrobeLogDecrease <- oapply(MicrobeLogDecrease, cols = c("TreatmentMethod"), FUN = sum, na.rm = TRUE) | |||
out <- RawConcentration * 10 ^(-1*(MicrobeLogDecrease)) | |||
return(out@output) | |||
} | |||
TreatedConcentration <- Ovariable("TreatedConcentration", dependencies = dependencies, formula = funktio, save = TRUE) | |||
oprint(TreatedConcentration) | |||
</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. | |||
Revision as of 06:09, 5 July 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
Concentrations of pathogens in drinking water
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.