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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
pEi muokkausyhteenvetoa
Ei muokkausyhteenvetoa
Rivi 7: Rivi 7:
name:Bw|default:78|description:Kehon paino (kg)|
name:Bw|default:78|description:Kehon paino (kg)|
name:C.dw|default:0.5|description:Haitta-aineen pitoisuus juomavedessä (mg/l)|
name:C.dw|default:0.5|description:Haitta-aineen pitoisuus juomavedessä (mg/l)|
name:Ir.dw|default:0.8|description:Päivittäinen juomaveden kulutus (l)|
name:Ir.dw.adult|default:0.8|description:Päivittäinen juomaveden kulutus, aikuinen (l)|
name:Ir.dw.child|default:0.25|description:Päivittäinen juomaveden kulutus, lapsi (l)|
name:Ef.dw|default:365|description:Päivien määrä vuodessa, jolloin juodaan haitta-ainetta sisältävää vettä|
name:Ef.dw|default:365|description:Päivien määrä vuodessa, jolloin juodaan haitta-ainetta sisältävää vettä|
name:C.soil|default:1000|description:Haitta-aineen pitoisuus maaperässä (mg/kg)|
name:C.soil|default:1000|description:Haitta-aineen pitoisuus maaperässä (mg/kg)|
name:Ir.soil|default:25|description:Päivittäin ruuansulatuskanavaan kulkeutuvan maa-aineksen määrä (mg)|
name:Ir.soil.adult|default:25|description:Päivittäin ruuansulatuskanavaan kulkeutuvan maa-aineksen määrä, aikuinen (mg)|
name:Ir.soil.child|default:100|description:Päivittäin ruuansulatuskanavaan kulkeutuvan maa-aineksen määrä, lapsi (mg)|
name:Ef.soil|default:265|description:Päivien määrä vuodessa, jolloin haitta-ainetta sisältävälle maaperälle altistutaan|
name:Ef.soil|default:265|description:Päivien määrä vuodessa, jolloin haitta-ainetta sisältävälle maaperälle altistutaan|
name:C.food.plant|default:5|description:Haitta-aineen pitoisuus ravintokasvissa (mg/kg)|
name:C.food.plant|default:5|description:Haitta-aineen pitoisuus ravintokasvissa (mg/kg)|
name:Ir.food.plant|default:0.1|description:Päivittäinen ravintokasvin kulutus (kg)|
name:Ir.food.plant.adult|default:0.1|description:Päivittäinen ravintokasvin kulutus, aikuinen (kg)|
name:Ef.food.plant|default:100|description:Päivien määrä vuodessa, jolloin syödään haitta-ainetta sisältävää ravintokasvia
name:Ir.food.plant.child|default:0.05|description:Päivittäinen ravintokasvin kulutus, lapsi (kg)|
name:Ef.food.plant|default:100|description:Päivien määrä vuodessa, jolloin syödään haitta-ainetta sisältävää ravintokasvia|
name:TDI|default:100|description:Turvallisen päivittäisen saannin viitearvo (µg/kg/d)
">
">


Rivi 23: Rivi 27:
# Haitta-aineen päivittäinen saanti juomaveden kautta (mg/kd/d):
# Haitta-aineen päivittäinen saanti juomaveden kautta (mg/kd/d):


Ir.dw <- c(Aikuinen=Ir.dw.adult, Lapsi=Ir.dw.child)
Intake.dw <- (C.dw*Ir.dw*Ef.dw)/(Bw*365)
Intake.dw <- (C.dw*Ir.dw*Ef.dw)/(Bw*365)


# Haitta-aineen päivittäinen saanti maaperän kautta (mg/kg/d)
# Haitta-aineen päivittäinen saanti maaperän kautta (mg/kg/d)


Ir.soil <- c(Aikuinen=Ir.soil.adult, Lapsi=Ir.soil.child)
Intake.soil <- (C.soil*Ir.soil/1000000*Ef.soil)/(Bw*365)
Intake.soil <- (C.soil*Ir.soil/1000000*Ef.soil)/(Bw*365)


# Haitta-aineen päivittäinen saanti ravintokasvin kautta (mg/kg/d)
# Haitta-aineen päivittäinen saanti ravintokasvin kautta (mg/kg/d)


Ir.food.plant <- c(Aikuinen=Ir.food.plant.adult, Lapsi = Ir.food.plant.child)
Intake.food.plant <- (C.food.plant*Ir.food.plant*Ef.food.plant)/(Bw*365)
Intake.food.plant <- (C.food.plant*Ir.food.plant*Ef.food.plant)/(Bw*365)


cat("Keskimääräinen päivittäinen altistuminenn haitta-aineelle (µg/kg)\n")


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(Hazard.quotient), type = 'html')
cat("Vaaraosamäärä, aikuinen\n")
HQ.adult <- Intake[1,4]*1000/TDI
round(HQ.adult,2)
cat("Vaaraosamäärä, lapsi\n")


cat("Keskimääräinen päivittäinen altistuminenn haitta-aineelle (µg/kg).\n")
HQ.child <- Intake[2,4]*1000/TDI
round(HQ.child,2)


print(xtable(Intake*1000), type = 'html')




</rcode>
</rcode>

Versio 5. tammikuuta 2012 kello 07.56

R-koodi

Kehon paino (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

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Väestön_kohdekohtainen_ympäristöperäisen_haitta-ainealtistumisen_arviointi&oldid=10594”