Hiekkalaatikko

Hiekkalaatikko(#)
Obs	Vuosi	Maa	Kuolleisuus
1	2001	Finland	1000
2	2002	Finland	100
3	2001	Sweden	6000
4	2002	Sweden	800

Quadratic: <math>u(x)=ax+bx^2+c</math>

Log Inverse Power Transformation: <math>u(x)=\frac{1}{1+exp[-a-\beta(1/K)log(1+KX)]}</math>, Point of Inflection: <math>u(x)=1/2(1-k/b)</math>

Negative Exponential: <math>u(x)=\frac{1-e^\mathrm{-a(x-x_1)}}{1-e^\mathrm{x_h-x_1}}</math>

Polyneux: <math>u(x)=\sum^n_{i=1}P(x)e^{\lambda_ix}</math>

Multiattribute: <math>P_{ik}=\alpha_i+\sum^m_{j=1}\sum^{L_j}_{l=1}\chi_{klj}P_{ilj}</math>

Päivitetty.

<math>123+\alpha -555-666+\omega</math>

moi

Vaihtoehtoinen leikkikenttä

Täältä neuvoja!

Measurement techniques	Authors	Utility function: u(x)		I. Certainty Equivalence (CE)	Fisburn (1967), Hull et al. (1973), Keeney and Raiffa (1976), LaValle (1978), and Pennings and Smidts (2000)I. Certainty Equivalence (CE)	II. Conjoint	Tversky (1967), Anderson and Shanteau (1970), Wind (1982), Corstjens and Weinstein (1982), and Smidts (1990)	III. Willingness-to-trade-off	Sarin and Weber (1993), Weber and Milliman (1997), and Weber and Hsee (1998)	IV. Standard sequence	Wakker and Denefee (1996) and Abdellaoui (2000)

Measurement techniques	Authors
Utility function: u(x)
I. Certainty Equivalence (CE)	Fisburn (1967), Hull et al. (1973), Keeney and Raiffa (1976), LaValle (1978), and Pennings and Smidts (2000)I. Certainty Equivalence (CE)
II. Conjoint	Tversky (1967), Anderson and Shanteau (1970), Wind (1982), Corstjens and Weinstein (1982), and Smidts (1990)
III. Willingness-to-trade-off	Sarin and Weber (1993), Weber and Milliman (1997), and Weber and Hsee (1998)
IV. Standard sequence	Wakker and Denefee (1996) and Abdellaoui (2000)

Muista ostaa

Avocadoja

Kissanruokaa

kaljaa * black

Hiekkalaatikko(d)
Obs	Hei	Moi	Päivää
1	Heippa	Moro	Huomenta
2	Heipä hei	Moikka	Iltaa
3	1	2	3

Terveysvaikutukset

HUOM! Tällä hetkellä malli laskee ainoastaan murskausprosessin pölypäästöt^[1] ja niiden leviämisen 10-15 km:n säteellä olevaan väestöön. Mallia päivitetään jatkuvasti.

+ Näytä koodi - Piilota koodi

library(OpasnetBaseUtils)
library(ggplot2)

earth.radius <- 6372.8 	# quadratic mean or root mean square approximation of the average great-circle 
						# circumference derives a radius of about 6372.8 km (Wikipedia)
central.angle <- function(s.la, s.lo, f.la, f.lo) 2 * asin((sin((s.la - f.la) / 2)^2 + cos(s.la) * cos(f.la) * sin((s.lo - f.lo) / 2)^2)^0.5)

dtheta.y <- 1/earth.radius*180/pi # central angle increase per 1 kilometer north from a given point assuming no displacement on x axis
dtheta.x <- 2*asin(sin(1/(2*earth.radius))/cos(LA/180*pi))*180/pi # central angle increase per 1 kilometer east from a given point 
# - assuming no displacement on y axis

# Populaatio data

pop.locs <- op_baseGetLocs("heande_base", "Heande3182", apply.utf8 = FALSE)
head(pop.locs)
pop.slice.la <- pop.locs[pop.locs$ind == "Latitude", "loc_id"][pop.locs[pop.locs$ind == "Latitude", "loc"] < LA + 10.5 * dtheta.y & 
	pop.locs[pop.locs$ind == "Latitude", "loc"] > LA - 10.5 * dtheta.y]
pop.slice.lo.inverse <- pop.locs[pop.locs$ind == "Longitude", "loc_id"][pop.locs[pop.locs$ind == "Longitude", "loc"] > LO + 10.5 * dtheta.x | 
	pop.locs[pop.locs$ind == "Longitude", "loc"] < LO - 10.5 * dtheta.x]

pop <- op_baseGetData("heande_base", "Heande3182", include = pop.slice.la, exclude = pop.slice.lo.inverse)

head(pop)

pop$Longitude <- as.numeric(as.character(pop$Longitude))
pop$Latitude <- as.numeric(as.character(pop$Latitude))

pop$LObin <- cut(pop$Longitude, breaks = LO + ((-11:10) + 0.5 ) * dtheta.x)
pop$LAbin <- cut(pop$Latitude, breaks = LA + ((-11:10) + 0.5 ) * dtheta.y)

# Pitoisuus data

pitoisuus <- function(n, paasto, L.matrix) { #, X_coord, Y_coord) {
	ID.list <- tapply(1:nrow(L.matrix), L.matrix[,c("Kaupunki", "Vuosi", "Tyyppi")], list)
	ID.list.samples <- sample(ID.list, n, replace = TRUE)
	ID.vec <- unlist(ID.list.samples)
print(ID.vec)
print(ID.list)
	#c.matrix <- pitoisuus(L.matrix, Paasto) #, X_coord, Y_coord)
	l.matrix <- L.matrix[ID.vec,]
	l.matrix$obs <- rep(1:n, each = length(ID.vec)/n)
print(head(l.matrix))	
	c.matrix <- merge(l.matrix, paasto)
	c.matrix <- model.frame(I(Paasto * k) ~., data = c.matrix)
	colnames(c.matrix)[1] <- "Pitoisuus"
print(head(c.matrix))
	return(c.matrix)
}

PILTTI.matrix <- op_baseGetData("heande_base", "Heande3181")[,-c(1,2,9)] # unit: ugm^-3/Mga^-1

PILTTI.matrix$dy <- as.numeric(as.character(PILTTI.matrix$dy))
PILTTI.matrix$dx <- as.numeric(as.character(PILTTI.matrix$dx))

colnames(PILTTI.matrix)[colnames(PILTTI.matrix)=="Result"] <- "k"

head(PILTTI.matrix)

Paasto <- data.frame(Paasto = murskaus.maara * paasto.kerroin / 1e6) # unit: Mga^-1

head(Paasto)

C.matrix <- pitoisuus(N, Paasto, PILTTI.matrix) # unit: ugm^-3
N
head(C.matrix)

C.matrix$LObin <- cut(C.matrix$dx / 1000 * dtheta.x + LO, breaks = LO + ((-11:10) + 0.5 ) * dtheta.x)
C.matrix$LAbin <- cut(C.matrix$dy / 1000 * dtheta.y + LA, breaks = LA + ((-11:10) + 0.5 ) * dtheta.y)

# Yhdistys

head(C.matrix)

pop.paasto <- merge(C.matrix, pop[,-c(1,2,6)])

pop.paasto.korjaus <- data.frame(Pitoisuus = pop.paasto$Pitoisuus, Vaesto = pop.paasto$Result / N)

head(pop.paasto.korjaus)

plot1 <- ggplot(pop.paasto.korjaus, aes(x = Pitoisuus, weight = Vaesto)) + geom_histogram(binwidth = 
(max(pop.paasto.korjaus$Pitoisuus[pop.paasto.korjaus$Vaesto!=0]) - 
min(pop.paasto.korjaus$Pitoisuus[pop.paasto.korjaus$Vaesto!=0]))/100) + 
xlim(min(pop.paasto.korjaus$Pitoisuus[pop.paasto.korjaus$Vaesto!=0]) - 0.000001, 
max(pop.paasto.korjaus$Pitoisuus[pop.paasto.korjaus$Vaesto!=0]) + 0.000001)

plot1 + geom_vline(xintercept = 40, colour = "red") # Ohjearvo

exposure.pop <- tapply(pop.paasto$Pitoisuus * pop.paasto$Result, pop.paasto[,c("obs")], sum)

bg.mort <- 45182/5203826 # same values as used in PILTTI

erf <- 0.0097 # J. T. Tuomisto, A. Wilson, et al. Uncertainty in mortality response to airborne fine particulate matter... 2008
# unit: 1/ugm^-3

mort.out <- erf * bg.mort * exposure.pop

qplot(mort.out, geom="density")

cat("Odotusarvo kuolemille vuodessa:", mean(mort.out), "\n")

cat("Ohjearvon 40 ugm^-3 mukaisen altistusrajan ylitti", sum(pop.paasto.korjaus$Vaesto[pop.paasto.korjaus$Pitoisuus>40]), "asukasta.\n")

Oletusarvot Siilinjärven Yaralle, yhdelle tonnille murskattua malmia vuodessa olettaen että murskaustapa on kuivaseulonta ilman avulla (suurin päästökerroin). Katso: op_fi:Metallimalmin murskausprosessin kokonais- (TSP) ja hengittyvien hiukkasten (PM10) päästökertoimet.
Havainnollisia lähtöarvojen muutoksia:
- Luikonlahden koordinaatit (pienempi väestö kaivoksen ympärillä): latitude=62.936836, longitude=28.70749
- Hienomurskaus kostealle malmille: päästökerroin 9.1 (oletus: kuiva malmi 72.6)

R-testi

+ Näytä koodi - Piilota koodi

######## Haetaan R-koodi generic sivulta Projektinhallinta. Sisältää funktiot dropall ja PTable.
######## Ladataan tarvittavat paketit
library(OpasnetBaseUtils)
library(ggplot2)
library(xtable)

print("Haetaan tarvittava data Opasnet-kannasta")
saanto.siemenet <- op_baseGetData("opasnet_base", "Op_fi2633")[,-c(1,2,7)] # Jatropan siementen saanto viljelystä
saanto.öljy     <- op_baseGetData("opasnet_base", "Op_fi2634")[,-c(1,2,5)] # Öljyn saanto jatropan siemenistä
saanto.diesel   <- op_baseGetData("opasnet_base", "Op_fi2632")[,-c(1,2,5)] # Biodieselin saanto jatropaöljystä
viljelyala      <- op_baseGetData("opasnet_base", "Op_fi2642")[,-c(1,2)] # Jatropan viljelyalueet
päästö.ilmasto  <- op_baseGetData("opasnet_base", "Op_fi2547")[,-c(1,2)] # Jatropan viljelyn ilmastovaikutukset
päästö.sosiaali <- op_baseGetData("opasnet_base", "Op_fi2552")[,-c(1,2)] # Jatropan viljelyn sosiaaliset vaikutukset
päästö.ekosyst  <- op_baseGetData("opasnet_base", "Op_fi2548")[,-c(1,2)] # Jatropan viljelyn ekosysteemivaikutukset
P               <- op_baseGetData("opasnet_base", "Op_fi2539")[,-c(1,2,7)] # Jatropan käyttö bioenergian lähteenä

print("Ajetaan malli")

### Muutetaan sarakkeiden nimet sopiviksi yhdistämistä varten.
colnames(saanto.siemenet)[4] <- "siemenet"
colnames(saanto.öljy)[2] <- "öljy"
colnames(saanto.diesel)[2] <- "diesel"

## Yhdistetään tiedot toisiinsa yhdeksi data.frameksi. Lasketaan saanto.
saanto <- merge(saanto.siemenet, saanto.öljy)
saanto <- merge(saanto, saanto.diesel)
saanto[,9] <- saanto$siemenet * saanto$öljy * saanto$diesel * ala
colnames(saanto)[9] <- "saanto (kg/a)"

## Muutetaan tulos jakaumaksi Monte Carlolla.
P <- PTable(P, n)
saanto <- merge(P, saanto)

## Lasketaan tulostaulu.
if(length(divisions)>1) divisions <- as.list(saanto[, divisions]) else divisions <- saanto[, divisions]
out1 <- as.data.frame(as.table(tapply(saanto[, 10], divisions, mean))) 
out1 <- dropall(out1[!is.na(out1$Freq), ])

print(xtable(out1), type = 'html')

## Lasketaan tuloskuvaaja.
out2 <- as.data.frame(as.table(tapply(saanto[, 10], list(saanto[, divisions2], saanto$obs), mean))) 
out2 <- dropall(out2[!is.na(out2$Freq), ])
ggplot(out2, aes(x = Freq, weight = 1, fill = Var1)) +geom_density() 
## Jostain syystä vain osa kuvista piirtyy oikein, riippuen mitä parametreja valitaan. En ymmärrä syytä.

Komia loota

sininen

on komia...

Hiekkalaatikko(#)
Obs	Year	Country	Mortality
1	2001	Finland	1001
2	2002	Finland	judanss
3	2001	Sweden	900
4	2002	Sweden	800

JEPJEJPKEPKE

JOO

fwae

JEPULISTA

Apua typeryyksien keksijöille!

Jouni T. Tuomisto: Apua typeryyksien keksijöille!. Ajatelma toimintatapojen muuttamisesta. Opasnet 2010. Viitattu 22.12.2024.

Argumenta

Sami Majaniemi, Mikko Pohjola, Jouni T. Tuomisto: Argumenta. Opasnet 2010. Viitattu 22.12.2024.

Arseenialtistuminen Suomessa

Hannu Komulainen: Arseeni altistuminen Suomi. Opasnet 2010. Viitattu 22.12.2024.

Arviointi THL:n budjetista

Jouni T. Tuomisto: Arviointi THL:n budjetista. Opasnet 2010. Viitattu 22.12.2024.

Arviointi kirjailijoiden tulojen turvaamisesta

Jouni T. Tuomisto: Arviointi kirjailijoiden tulojen turvaamisesta. Opasnet 2010. Viitattu 22.12.2024.

Arviointi pohjavesilaitoksen mikrobiologisista riskeistä

Päivi Meriläinen: Arviointi pohjavesilaitoksen mikrobiologisista riskeistä. Opasnet 2010. Viitattu 22.12.2024.

Arvostuspeli

Jouni T. Tuomisto: Arvostuspeli. Opasnet 2010. Viitattu 22.12.2024.

Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon

Jouni T. Tuomisto: Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon. Luento. Opasnet 2010. Viitattu 22.12.2024.

Avoin arviointi erityistilanteessa

Jouni T. Tuomisto: Avoin arviointi erityistilanteessa. Ohjeistus. Opasnet 2010. Viitattu 22.12.2024.

Energiantuotannon kasvihuonekaasupäästöt Suomessa

Matleena Tuomisto, Noora Koponen, Teemu Rintala: Energiantuotannon kasvihuonekaasupäästöt Suomessa. Opasnet 2010. Viitattu 22.12.2024.

Fluoridi altistuminen

Hannu Komulainen, Olli Leino: Fluoridi altistuminen. Muuttuja. Opasnet 2010. Viitattu 22.12.2024.

Formaldehydi altistus Suomi

Eero Priha, Otto Hänninen, Olli Leino: Formaldehydi altistus Suomi. Opasnet 2010. Viitattu 22.12.2024.

Heande-projektinhallinta

Jouni T. Tuomisto: Heande-projektinhallinta. Projektinhallintajärjestelmän esittely. Opasnet 2010. Viitattu 22.12.2024.

Hyöty-riskiarviointi ydinvoimasta Suomessa

Teemu Rintala, Sami Majaniemi, Minna-Mari Hämäläinen, Noora Koponen, Matleena Tuomisto, Aino Paakkinen, Jouni T. Tuomisto: Hyöty-riskiarviointi ydinvoimasta Suomessa. Opasnet 2010. Viitattu 22.12.2024.

Ilmastokäräjät

Jouni T. Tuomisto: Ilmastokäräjät. Tutkimussuunnitelma. Opasnet 2010. Viitattu 22.12.2024.

Ilmastonmuutos

Matleena Tuomisto, Jouni T. Tuomisto: Ilmastonmuutos. Opasnet 2010. Viitattu 22.12.2024.

Ilmastopolitiikkaa voisi ohjata tieteen menetelmin

Jouni T. Tuomisto, Mikko V. Pohjola: Ilmastopolitiikkaa voisi ohjata tieteen menetelmin. Mielipidekirjoitus. Opasnet 2010. Viitattu 22.12.2024.

Iskuryhmä ilmastonmuutosta vastaan

Jouni T. Tuomisto: Iskuryhmä ilmastonmuutosta vastaan. Pamfletti. Opasnet 2010. Viitattu 22.12.2024.

Islannin tulivuorenpurkaus 2010

Jouni T. Tuomisto, Pauliina Ahtoniemi: Islannin tulivuorenpurkaus 2010. Opasnet 2010. Viitattu 22.12.2024.

Kalaruoan terveysvaikutukset

Olli Leino: Kalaruoan terveysvaikutukset. Opasnet 2010. Viitattu 22.12.2024.

Kaupungin verkkosivujen määrittelyt

Jouni T. Tuomisto: Kaupungin verkkosivujen määrittelyt. Opasnet 2010. Viitattu 22.12.2024.

Kaupunkien lämpösaarekkeiden lieventämisen terveysvaikutukset EuroopassaMalline:Julkaisu.default Kaupunkirakenne - kansanterveysMalline:Julkaisu.default Kloorauksen sivutuotteet altistus Suomi

Päivi Meriläinen, Olli Leino: Kloorauksen sivutuotteet altistus Suomi. Opasnet 2010. Viitattu 22.12.2024.

Komiteoita, tiedostoja ja muita entisajan keksintöjä

Jouni T. Tuomisto: Komiteoita, tiedostoja ja muita entisajan keksintöjä. Opasnet 2010. Viitattu 22.12.2024.

Kosteusvauriot altistus

Ulla Haverinen-Shaughnessy, Olli Leino: Kosteusvauriot altistus. Opasnet 2010. Viitattu 22.12.2024.

Kuntakone

Sami Majaniemi: Kuntakone. Opasnet 2010. Viitattu 22.12.2024.

Lyijy ympäristö altistus

Otto Hänninen, Olli Leino: Lyijy ympäristö altistus. Opasnet 2010. Viitattu 22.12.2024.

Matkojenhallintajärjestelmä

Jouni T. Tuomisto: Matkojenhallintajärjestelmä. Ehdotus parannuksesta. Opasnet 2010. Viitattu 22.12.2024.

Metyylielohopea altistus Suomi

Olli Leino, Juha Villman: Metyylielohopea altistus Suomi. Opasnet 2010. Viitattu 22.12.2024.

Narkolepsia Suomessa

Noora Koponen, Minna-Mari Hämäläinen: Narkolepsia Suomessa. Muuttuja. Opasnet 2010. Viitattu 22.12.2024.

Nettiajan kansalaisyhteiskunta

Sami Majaniemi: Nettiajan kansalaisyhteiskunta. Opasnet 2010. Viitattu 22.12.2024.

Opasnet-uskomusjärjestelmä

Jouni T. Tuomisto: Opasnet-uskomusjärjestelmä. Opasnet 2010. Viitattu 22.12.2024.

Opasnetin kehitystarpeita

Jouni T. Tuomisto: Opasnetin kehitystarpeita. Yhteistyömahdollisuuksien kartoitus. Opasnet 2010. Viitattu 22.12.2024.

Opasnetin käyttökoulutus

Jouni T. Tuomisto, Mikko Pohjola, Juha Villman: Opasnetin käyttökoulutus. Koulutustilaisuus. Opasnet 2010. Viitattu 22.12.2024.

Opastopian toimintaympäristö

Sami Majaniemi: Opastopian toimintaympäristö. Opasnet 2010. Viitattu 22.12.2024.

Postilaki

Jouni T. Tuomisto: Postilaki. Ehdotus parannuksesta. Opasnet 2010. Viitattu 22.12.2024.

Päättäjän tietomonopoli on murrettava

Jouni T. Tuomisto: Päättäjän tietomonopoli on murrettava. Pamfletti. Opasnet 2010. Viitattu 22.12.2024.

Radioaktiivisen säteilyn terveysvaikutukset Suomessa

Teemu Rintala, Noora Koponen, Minna-Mari Hämäläinen, Jouni T. Tuomisto: Radioaktiivisen säteilyn terveysvaikutukset Suomessa. Opasnet 2010. Viitattu 22.12.2024.

Seurakuntavaalit 2010

Jouni T. Tuomisto: Seurakuntavaalit 2010. Tutkimussuunnitelma. Opasnet 2010. Viitattu 22.12.2024.

Sikainfluenssa

Noora Koponen, Jouni T. Tuomisto: Sikainfluenssa. Luonnos arvioinniksi. Opasnet 2010. Viitattu 22.12.2024.

Sikainfluenssarokotteen terveyshaitat

Noora Koponen, Jouni T. Tuomisto: Sikainfluenssarokotteen terveyshaitat. Opasnet 2010. Viitattu 22.12.2024.

Suomalainen energiapolitiikka

Teemu Rintala, Noora Koponen, Matleena Tuomisto, Sami Majaniemi, Aino Paakkinen, Jouni T. Tuomisto: Suomalainen energiapolitiikka. Opasnet 2010. Viitattu 22.12.2024.

Suomalaiset ydinvoimalat

Teemu Rintala, Minna-Mari Hämäläinen, Noora Koponen, Jouni T. Tuomisto: Suomalaiset ydinvoimalat. Muuttuja. Opasnet 2010. Viitattu 22.12.2024.

Suomen energiantuotannon terveysvaikutusten arviointi

Teemu Rintala, Sami Majaniemi: Suomen energiantuotannon terveysvaikutusten arviointi. Opasnet 2010. Viitattu 22.12.2024.

Syövät työperäiset lukumäärä

Antti Karjalainen, Olli Leino: Syövät työperäiset lukumäärä. Opasnet 2010. Viitattu 22.12.2024.

Sähköinen sairauskertomus

Jouni T. Tuomisto: Sähköinen sairauskertomus. Opasnet 2010. Viitattu 22.12.2024.

THL:n kannanottoja ydinvoimasta

Matti Jantunen, Jouko Tuomisto, Raimo Salonen: THL:n kannanottoja ydinvoimasta. Opasnet 2010. Viitattu 22.12.2024.

Terveyden ja hyvinvoinnin ajatushautomo

Jouni T. Tuomisto, Sami Majaniemi: Terveyden ja hyvinvoinnin ajatushautomo. Opasnet 2010. Viitattu 22.12.2024.

Terveydenhuollon tietojärjestelmä

Jouni T. Tuomisto: Terveydenhuollon tietojärjestelmä. Alustava arviointi. Opasnet 2012. Viitattu 22.12.2024.

Tiede 2.0

Jouni T. Tuomisto: Tiede 2.0. Opasnet-muuttuja. Opasnet 2010. Viitattu 22.12.2024.

Tieteellis-poliittinen vallankumous

Jouni T. Tuomisto: Tieteellis-poliittinen vallankumous. Ajatelma. Opasnet 2010. Viitattu 22.12.2024.

Tieteen ja politiikan vuorovaikutusstrategiaMalline:Julkaisu.default Tietoteknisiä ratkaisuja Opasnetissä

Jouni T. Tuomisto, Juha Villman: Tietoteknisiä ratkaisuja Opasnetissä. Opasnet 2010. Viitattu 22.12.2024.

Tietotyö

Jouni T. Tuomisto: Tietotyö. Opasnet 2010. Viitattu 22.12.2024.

Tutkimuslaitoksen tietopolitiikka

Jouni T. Tuomisto, Sami Majaniemi: Tutkimuslaitoksen tietopolitiikka. Opasnet 2010. Viitattu 22.12.2024.

Uutisraivaaja 2011

Sami Majaniemi: Uutisraivaaja 2011. Suunnitelma. Opasnet 2010. Viitattu 22.12.2024.

Valtion palkkausjärjestelmä

Jouni T. Tuomisto: Valtion palkkausjärjestelmä. Arviointi. Opasnet 2010. Viitattu 22.12.2024.

Verovähennyskortti

Jouni T. Tuomisto: Verovähennyskortti. Verojärjestelmän parannusehdotus. Opasnet 2010. Viitattu 22.12.2024.

Wikipuolue

Jouni T. Tuomisto: Wikipuolue. Opasnet 2010. Viitattu 22.12.2024.

YVA

Mikko Pohjola, Erkki Kuusisto, Jouni T. Tuomisto: YVA. Kommentteja YVA-lain arvioinnista. Opasnet 2010. Viitattu 22.12.2024.

Ydinvoimaan liittyvien riskien kokeminen Suomessa

Noora Koponen, Minna-Mari Hämäläinen, Matleena Tuomisto, Teemu Rintala, Aino Paakkinen, Sami Majaniemi, Jouni T. Tuomisto: Ydinvoimaan liittyvien riskien kokeminen Suomessa. Opasnet 2010. Viitattu 22.12.2024.

Ympäristömelun vaikutuslaskentatiedot Suomi

Erkki Kuusisto: Ympäristömelun vaikutuslaskentatiedot Suomi. Opasnet 2010. Viitattu 22.12.2024.

Ympäristön tupakansavu altistus Suomi

Otto Hänninen, Erkki Kuusisto, Olli Leino: Ympäristön tupakansavu altistus Suomi. Opasnet 2010. Viitattu 22.12.2024.

Ytrips OyMalline:Julkaisu.default

Tämä koodi tuottaa vain tapahtumalistauksen ilman yhteenvetoja.

+ Näytä koodi - Piilota koodi

out <- budjettilaskenta(page = sivu, rahoittaja = rahoittaja, projekti = projekti, työpaketti = työpaketti, työpaketti.add = työpaketti.add, rahoittaja.add = rahoittaja.add)
if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]}
if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]}

if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]}
if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]}

print(xtable(out), type = 'html')

Tämä tuottaa halutut yhteenvedot mutta ei tapahtumalistausta.

Lallaa kaunis päivä tänään	Eilen ei ollut	Oli ruma.
Liha	Sika	Lehmä
Kasvis	Soija	Papu
1	2	3

↑ Joo

On kaksi muutakin hiekkalaatikkoa: Hiekkalaatikko2 ja Hiekkalaatikko 2

[1] Joo

[1]

Hiekkalaatikko

Sisällys

Muista ostaa

Terveysvaikutukset

R-testi

Komia loota

Navigointivalikko