Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi

R-koodi

Kehon paino (kg): Haitta-aineen pitoisuus juomavedessä (mg/l): Päivittäinen juomaveden kulutus (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ä (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 (kg): Päivien määrä vuodessa, jolloin syödään haitta-ainetta sisältävää ravintokasvia: + Näytä koodi- Piilota koodi 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) # Haitta-aineen päivittäinen saanti maaperän kautta (mg/kg/d) Intake.soil <- (C.soil*Ir.soil/1000000*Ef.soil)/(Bw*365) # Haitta-aineen päivittäinen saanti ravintokasvin kautta (mg/kg/d) Intake.food.plant <- (C.food.plant*Ir.food.plant*Ef.food.plant)/(Bw*365) Intake <-data.frame(Juomavesi=Intake.dw, Maaperä=Intake.soil, Ravinto=Intake.food.plant, Kokonaissaanti=(Intake.dw+Intake.soil+Intake.food.plant)) cat("Keskimääräinen päivittäinen altistuminenn haitta-aineelle (µg/kg).\n") print(xtable(Intake*1000), type = 'html')