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 {{#opasnet_base_link:Op_fi3008}}

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

Ero sivun ”Seturi/funktio” versioiden välillä(-)

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	vaikutus				= (altistus - tausta.altistus) / UR
10	syyosuus.lähdeväestössä				= 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&ä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&ä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&ä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)

Katso myös

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

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>