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

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	vaikutus				= (altistus - tausta.altistus) / UR
10	syyosuus lähdeväestössä (melu				= 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äine.altistus + 0,01486 * keskimääräine.altistus^2

Katso myös

Viitteet

Aiheeseen liittyviä tiedostoja

Seturi/funktio

Sisällys

Kysymys

Vastaus

Perustelut

Koodi

Data

Katso myös

Viitteet

Aiheeseen liittyviä tiedostoja

Navigointivalikko