Seturi/funktio

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi3008
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Kysymys

Mitä laskentafunktioita tarvitaan ympäristöterveyden arvioinneissa?

Vastaus

Olennaisia tuloksia täällä.

Perustelut

Koodi

Oletusajon avain: VZQZ8XZiOOoPq3v7

+ Näytä koodi- Piilota koodi 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")

Data

Seturi/funktio(-)

Obs	Vaste	Tyyppi	Rname	Result	Description
1	tautikuorma	DALY	f.tautikuorma	elinvuosimenetys + tautivuosimenetys	DALY(Disability Adjusted Life Year) = YLL(Years of Life Lost) + YLD(Years Lived with Disability)
2	elinvuosimenetys	YLL	f.elinvuosimenetys	tapausmäärä * elinajanodote	YLL=N(Number of deaths) x L(Standard life expentancy at time of death)
3	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)
4	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))
5	tapausmäärä	UR	f.tapausmäärä.UR	annosvaste * (kokonaisaltistus - max(tausta.altistus, kynnysaltistus))
6	selitysosuus	RR	f.selitysosuus.RR	altistuvien.osuus * (annosvaste - 1) / (altistuvien.osuus * (annosvaste - 1) + 1)
7	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ä
8	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
9	lyijyaltistuksen aiheuttama vaikutus				= (altistus - tausta.altistus) / UR
10	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 )
11	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)
12	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)
13	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)
14	vaikutuksen prevalenssi altistusluokassa (tiemelu ja unihäiriöt)				= 20.8 - 1.05 * keskimääräinen.altistus + 0.01486 * keskimääräine.altistus^2
15	vaikutuksen prevalenssi altistusluokassa (raidemelu ja unihäiriöt)				= 11.3 - 0.55 * keskimääräinen.altistus + 0.00759 * keskimääräinen.altistus^2
16	vaikutuksen 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

• Patogeenien annosvasteet
• Seturi
• Seturi/tautiriski
• Seturi/altistus
• Seturi/annosvaste
• Seturi/väestö

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>