Ero sivun ”Seturi/funktio” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Ei muokkausyhteenvetoa
pEi muokkausyhteenvetoa
 
(29 välissä olevaa versiota 6 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
[[Luokka:Seturi]]
[[Luokka:Seturi]]
[[Luokka:Sisältää R-koodia]]
{{muuttuja}}


{{todo|Osaatko neuvoa, mitä tähän taulukkoon tarkalleen pitäisi tehdä? Tuntuu hieman vaikealta. --[[Käyttäjä:Vesigirppu|Vesigirppu]] 21. kesäkuuta kello 10:56 (EEST)|Arja Asikainen}}
==Kysymys==


DALY(Disability Adjusted Life Year) = YLL(Years of Life Lost) + YLD(Years Lived with Disability)
Mitä laskentafunktioita tarvitaan ympäristöterveyden arvioinneissa?


<t2b  index="index1" Locations="indikaattori,tulos(laskentakaava)" unit="nro">
==Vastaus==
|
 
|
Olennaisia tuloksia [http://fi.opasnet.org/fi_wiki/index.php/Special:R-tools?id=P0yvW5bW6nH082oN täällä].
 
==Perustelut==
 
===Koodi===
 
Oletusajon avain: VZQZ8XZiOOoPq3v7
 
<rcode>
library(OpasnetUtils)
library(xtable)
 
vastefunktio <- new("ovariable",
name = "vastefunktio",
data = tidy(op_baseGetData("opasnet_base", "Op_fi3008"), objname = "vastefunktio", direction = "wide")
)
 
f.tautikuorma <- function(elinvuosimenetys, tautivuosimenetys, ...) {
elinvuosimenetys + tautivuosimenetys
}
f.elinvuosimenetys <- function(tapausmäärä, elinajanodote, ...) {
tapausmäärä * elinajanodote
}
f.tautivuosimenetys <- function(tapausmäärä, vaikeusaste, kesto, ...) {
tapausmäärä * vaikeusaste * kesto
}
f.tapausmäärä.RR <- function(annosvaste, kokonaisaltistus, tausta.altistus = 0, kynnysaltistus = 0, tautiriski, altistuvien.osuus, ...) {
exp(log(annosvaste) * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))) * tautiriski * (1 - altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1))
}
f.tapausmäärä.UR <- function(annosvaste, kokonaisaltistus, tausta.altistus = 0, kynnysaltistus = 0, ...) {
annosvaste * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))
}
f.selitysosuus.RR <- function(altistuvien.osuus, annosvaste, ...) {
altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1)
}
f.lyijyjälkeenjääneisyys <- function(äo.alenema, altistuvien.osuus, väestö, elinikä, ...) {
(NORMDIST(70 + äo.alenema, 100, 15, 1) - NORMDIST(70, 100, 15, 1)) * altistuvien.osuus * väestö / elinikä
}
f.lyijyverenpaine <- function(verenpaine.nousu, altistuvien.osuus, väestö, kesto, elinikä, ...) {
(NORMDIST(140, 135, 15, 1) - NORMDIST(140 - verenpaine.nousu, 135, 15, 1)) * altistuvien.osuus * väestö / kesto / elinikä
}
 
print(xtable(vastefunktio@data), type = 'html')
objects.put(vastefunktio, f.tautikuorma, f.elinvuosimenetys, f.tautivuosimenetys, f.tapausmäärä.RR, f.tapausmäärä.UR, f.selitysosuus.RR, f.lyijyjälkeenjääneisyys, f.lyijyverenpaine)
cat("Muuttuja alustettu. Ota talteen ajosivun osoitteen avain myöhempää käyttöä varten.\n")
</rcode>
 
===Data===
 
<t2b  index="Vaste,Tyyppi,Havaintotyyppi" locations="Rname,Result,Description" unit="-">
tautikuorma|DALY|f.tautikuorma|elinvuosimenetys + tautivuosimenetys|DALY(Disability Adjusted Life Year) = YLL(Years of Life Lost) + YLD(Years Lived with Disability)
elinvuosimenetys|YLL|f.elinvuosimenetys|tapausmäärä * elinajanodote|YLL=N(Number of deaths) x L(Standard life expentancy at time of death)
tautivuosimenetys|YLD|f.tautivuosimenetys|tapausmäärä * vaikeusaste * kesto |I(Number of incident cases) x DW(Disability weight) x L(Average duration of the case until death)
tapausmäärä|RR|f.tapausmäärä.RR|exp(log(annosvaste) * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))) * tautiriski * (1 - altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1))|
tapausmäärä|UR|f.tapausmäärä.UR|annosvaste * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))|
selitysosuus|RR|f.selitysosuus.RR|altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1)|
lyijyaltistuksen aiheuttama lievä jälkeenjääneisyys|DISTR |f.lyijyjälkeenjääneisyys|(NORMDIST(70 + äo.alenema, 100, 15, 1) - NORMDIST(70, 100, 15, 1)) * altistuvien.osuus * väestö / elinikä |(NORMDIST(70 + vaikutus;100;15;1) - NORMDIST(70;100;15;1)) * altistuneet / elinikä
lyijyaltistuksen aiheuttama verenpaineen nousu|DISTR |f.lyijyverenpaine|(NORMDIST(140, 135, 15, 1) - NORMDIST(140 - verenpaine.nousu, 135, 15, 1)) * altistuvien.osuus * väestö / kesto / elinikä |((NORMDIST(140;135;15;1) - NORMDIST(140 - vaikutus;135;15;1)) * altistuneet / kesto) / 70
lyijyaltistuksen aiheuttama vaikutus| | | |= (altistus - tausta.altistus) / UR
syyosuus lähdeväestössä (melu ja sydäinfarkti)| | | |= altistumisen.prevalenssi * (RR.taustan.yläpuolella - 1) / ( SUMPRODUCT(RR.taustan.yläpuolella.eri.altistusluokissa; vastaavat.altistumisen.prevalenssit.lähdeväestössä) - SUM(vastaavat.altistumisen.prevalenssit.lähdeväestössä) + 1 )
vaikutuksen prevalenssi altistusluokassa (tiemelu ja ärsyyntyneisyys)| | | |= 9.868 * 10^-4  * (keskimääräinen.altistus - 42)^3 - 1.436 * 10^-2 *  (keskimääräinen.altistus - 42)^2 + 0.5118 * (keskimääräinen.altistus - 42)
vaikutuksen prevalenssi altistusluokassa (raidemelu ja ärsyyntyneisyys)| | | |= 7.239 * 10^-4 * (keskimääräinen.altistus - 42)^3 - 7.851 * 10^-3 * (keskimääräinen.altistus - 42)^2 + 0.1695 * (keskimääräinen.altistus - 42)
vaikutuksen prevalenssi altistusluokassa (lentomelu ja ärsyyntyneisyys)| | | |= -9.199 * 10^-5 * (keskimääräinen.altistus - 42)^3 + 3.932 * 10^-2 * (keskimääräinen.altistus - 42)^2 + 0,2939 * (keskimääräinen.altistus - 42)
vaikutuksen prevalenssi altistusluokassa (tiemelu ja unihäiriöt)| | | |= 20.8 - 1.05 * keskimääräinen.altistus +  0.01486 * keskimääräine.altistus^2
vaikutuksen prevalenssi altistusluokassa (raidemelu ja unihäiriöt)| | | |= 11.3 - 0.55 * keskimääräinen.altistus +  0.00759 * keskimääräinen.altistus^2
vaikutuksen prevalenssi altistusluokassa (lentomelu ja unihäiriöt)| | | |= 18.147 - 0.956 * keskimääräinen.altistus  +  0.01482 * keskimääräinen.altistus^2
</t2b>
</t2b>
==Katso myös==
* [[Patogeenien annosvasteet]]
* [[Seturi]]
* [[Seturi/tautiriski]]
* [[Seturi/altistus]]
* [[Seturi/annosvaste]]
* [[Seturi/väestö]]
==Viitteet==
<References/>
==Aiheeseen liittyviä tiedostoja==
{{mfiles}}

Nykyinen versio 22. elokuuta 2013 kello 11.24




Kysymys

Mitä laskentafunktioita tarvitaan ympäristöterveyden arvioinneissa?

Vastaus

Olennaisia tuloksia täällä.

Perustelut

Koodi

Oletusajon avain: VZQZ8XZiOOoPq3v7

+ Näytä koodi

Data

Ero sivun ”Seturi/funktio” versioiden välillä(-)
ObsVasteTyyppiRnameResultDescription
1tautikuormaDALYf.tautikuormaelinvuosimenetys + tautivuosimenetysDALY(Disability Adjusted Life Year) = YLL(Years of Life Lost) + YLD(Years Lived with Disability)
2elinvuosimenetysYLLf.elinvuosimenetystapausmäärä * elinajanodoteYLL=N(Number of deaths) x L(Standard life expentancy at time of death)
3tautivuosimenetysYLDf.tautivuosimenetystapausmäärä * vaikeusaste * kesto I(Number of incident cases) x DW(Disability weight) x L(Average duration of the case until death)
4tapausmääräRRf.tapausmäärä.RRexp(log(annosvaste) * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))) * tautiriski * (1 - altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1))
5tapausmääräURf.tapausmäärä.URannosvaste * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))
6selitysosuusRRf.selitysosuus.RRaltistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1)
7lyijyaltistuksen aiheuttama lievä jälkeenjääneisyysDISTR f.lyijyjälkeenjääneisyys(NORMDIST(70 + äo.alenema, 100, 15, 1) - NORMDIST(70, 100, 15, 1)) * altistuvien.osuus * väestö / elinikä (NORMDIST(70 + vaikutus;100;15;1) - NORMDIST(70;100;15;1)) * altistuneet / elinikä
8lyijyaltistuksen aiheuttama verenpaineen nousuDISTR f.lyijyverenpaine(NORMDIST(140, 135, 15, 1) - NORMDIST(140 - verenpaine.nousu, 135, 15, 1)) * altistuvien.osuus * väestö / kesto / elinikä ((NORMDIST(140;135;15;1) - NORMDIST(140 - vaikutus;135;15;1)) * altistuneet / kesto) / 70
9lyijyaltistuksen aiheuttama vaikutus = (altistus - tausta.altistus) / UR
10syyosuus lähdeväestössä (melu ja sydäinfarkti) = altistumisen.prevalenssi * (RR.taustan.yläpuolella - 1) / ( SUMPRODUCT(RR.taustan.yläpuolella.eri.altistusluokissa; vastaavat.altistumisen.prevalenssit.lähdeväestössä) - SUM(vastaavat.altistumisen.prevalenssit.lähdeväestössä) + 1 )
11vaikutuksen prevalenssi altistusluokassa (tiemelu ja ärsyyntyneisyys) = 9.868 * 10^-4 * (keskimääräinen.altistus - 42)^3 - 1.436 * 10^-2 * (keskimääräinen.altistus - 42)^2 + 0.5118 * (keskimääräinen.altistus - 42)
12vaikutuksen prevalenssi altistusluokassa (raidemelu ja ärsyyntyneisyys) = 7.239 * 10^-4 * (keskimääräinen.altistus - 42)^3 - 7.851 * 10^-3 * (keskimääräinen.altistus - 42)^2 + 0.1695 * (keskimääräinen.altistus - 42)
13vaikutuksen prevalenssi altistusluokassa (lentomelu ja ärsyyntyneisyys) = -9.199 * 10^-5 * (keskimääräinen.altistus - 42)^3 + 3.932 * 10^-2 * (keskimääräinen.altistus - 42)^2 + 0,2939 * (keskimääräinen.altistus - 42)
14vaikutuksen prevalenssi altistusluokassa (tiemelu ja unihäiriöt) = 20.8 - 1.05 * keskimääräinen.altistus + 0.01486 * keskimääräine.altistus^2
15vaikutuksen prevalenssi altistusluokassa (raidemelu ja unihäiriöt) = 11.3 - 0.55 * keskimääräinen.altistus + 0.00759 * keskimääräinen.altistus^2
16vaikutuksen prevalenssi altistusluokassa (lentomelu ja unihäiriöt) = 18.147 - 0.956 * keskimääräinen.altistus + 0.01482 * keskimääräinen.altistus^2

Katso myös

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Seturi/funktio&oldid=19652”