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

Koodi, johon käyttäjä voi suoraan kirjoittaa lähtötiedot

Koodi napattu sivulta [1]

Mistä lähtötiedot otetaan?: Syötetään näihin kenttiin Luikonlahden tutkimuksesta Arvioinnin kohteena oleva haitta-aine: Arvioinnin kohteena oleva alue: Haitta-aineen ympäristöpitoisuudet arvioinnin kohteena olevalla alueella Ulkoilma (µg/m3): Sisäilma (µg/m3): Juomavesi (mg/l): Maaperä (mg/kg): Paikalliset vihannekset (mg/kg tuorepainoa): Paikalliset juurekset (mg/kg tuorepainoa): Paikalliset marjat (mg/kg tuorepainoa): Paikallinen kala (mg/kg tuorepainoa): Paikallinen liha (mg/kg tuorepainoa): Paikalliset maitotuotteet (mg/kg tuorepainoa): Peseytymiseen käytetty vesi (mg/l): Pintavesi (uinti) (mg/l): + Näytä koodi- Piilota koodi library(OpasnetUtils) pitoisuus <- new("ovariable", name = "pitoisuus", data = data.frame( Altiste = Chemical.substance, Matriisi = c( "Ulkoilma", "Sisäilma", "Juomavesi", "Maaperä", "Vihannekset", "Juurekset", "Marjat", "Kala", "Liha", "Maitotuotteet", "Pesuvesi", "Pintavesi" ), Result = c( C.air.outdoor, C.air.indoor, C.dw, C.soil, C.lfc, C.tfc, C.berries, C.fish, C.meat, C.dairy, C.bw, C.sw ) )) if(source != "Käyttäjä") { objects.latest(source, "alustus") } oprint(pitoisuus) # JNE käytetään loppuosassa pääsivulla olevaa koodia.