Ero sivun ”Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 48: Rivi 48:
Intake <-data.frame(Juomavesi=Intake.dw, Maaperä=Intake.soil, Ravinto=Intake.food.plant, Kokonaissaanti=(Intake.dw+Intake.soil+Intake.food.plant))
Intake <-data.frame(Juomavesi=Intake.dw, Maaperä=Intake.soil, Ravinto=Intake.food.plant, Kokonaissaanti=(Intake.dw+Intake.soil+Intake.food.plant))
print(xtable(Intake*1000), type = 'html')
print(xtable(Intake*1000), type = 'html')
cat("Eri altistumisreittien osuus kokonaissaannista (%)\n")
Intake.fraction <- Intake/Intake$Kokonaissaanti
print(xtable(Intake.fraction*100), type = 'html')





Versio 5. tammikuuta 2012 kello 09.10

R-koodi

Kehon paino, aikuinen (kg):

Kehon paino, lapsi (kg):

Haitta-aineen pitoisuus juomavedessä (mg/l):

Päivittäinen juomaveden kulutus, aikuinen (l):

Päivittäinen juomaveden kulutus, lapsi (l):

Päivien määrä vuodessa, jolloin juodaan haitta-ainetta sisältävää vettä:

Haitta-aineen pitoisuus maaperässä (mg/kg):

Päivittäin ruuansulatuskanavaan kulkeutuvan maa-aineksen määrä, aikuinen (mg):

Päivittäin ruuansulatuskanavaan kulkeutuvan maa-aineksen määrä, lapsi (mg):

Päivien määrä vuodessa, jolloin haitta-ainetta sisältävälle maaperälle altistutaan:

Haitta-aineen pitoisuus ravintokasvissa (mg/kg):

Päivittäinen ravintokasvin kulutus, aikuinen (kg):

Päivittäinen ravintokasvin kulutus, lapsi (kg):

Päivien määrä vuodessa, jolloin syödään haitta-ainetta sisältävää ravintokasvia:

Turvallisen päivittäisen saannin viitearvo (µg/kg/d):

+ Näytä koodi