Ero sivun ”Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
p (→R-koodi) |
||
| Rivi 4: | Rivi 4: | ||
graphics="1" | graphics="1" | ||
include="page:Funktioita_R-toolsiin|name:generic" | include="page:Funktioita_R-toolsiin|name:generic" | ||
variables="name:C.dw | variables="name:C.dw|description:Haitta-aineen pitoisuus juomavedessä (mg/l)| | ||
name:Ir.dw.adult|default:0.8|description:Päivittäinen juomaveden kulutus (l)| | name:Ir.dw.adult|default:0.8|description:Päivittäinen juomaveden kulutus (l)| | ||
name:Ef.dr|default:365|description:Päivien määrä vuodessa, jolloin altistutaan haitta-ainetta sisältävälle juomavedelle| | name:Ef.dr|default:365|description:Päivien määrä vuodessa, jolloin altistutaan haitta-ainetta sisältävälle juomavedelle| | ||
name:Bw|default:78|description:Kehon paino (kg) | name:Bw|default:78|description:Kehon paino (kg) | ||
"> | "> | ||
library(OpasnetBaseUtils) | |||
library(xtable) | |||
# Haitta-aineen päivittäinen saanti juomaveden kautta (mg/kd/d: | |||
Intake.dw <- (C.dw*Ir.dw*Ef.dw)/(Bw*365) | Intake.dw <- (C.dw*Ir.dw*Ef.dw)/(Bw*365) | ||
out1 <- Intake.dw | out1 <- Intake.dw | ||
print(xtable(out1), type = 'html') | print(xtable(out1), type = 'html') | ||
</rcode> | </rcode> | ||