Ero sivun ”Hiekkalaatikko” versioiden välillä

Versio 28. kesäkuuta 2012 kello 11.38

Ero sivun ”Hiekkalaatikko” versioiden välillä(#)
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

Ero sivun ”Hiekkalaatikko” versioiden välillä(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...

Ero sivun ”Hiekkalaatikko” versioiden välillä(#)
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 30.12.2024.

Argumenta

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

Arseenialtistuminen Suomessa

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

Arviointi THL:n budjetista

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

Arviointi kirjailijoiden tulojen turvaamisesta

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

Arviointi pohjavesilaitoksen mikrobiologisista riskeistä

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

Arvostuspeli

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

Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon

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

Avoin arviointi erityistilanteessa

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

Energiantuotannon kasvihuonekaasupäästöt Suomessa

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

Fluoridi altistuminen

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

Formaldehydi altistus Suomi

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

Heande-projektinhallinta

Jouni T. Tuomisto: Heande-projektinhallinta. Projektinhallintajärjestelmän esittely. Opasnet 2010. Viitattu 30.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 30.12.2024.

Ilmastokäräjät

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

Ilmastonmuutos

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

Ilmastopolitiikkaa voisi ohjata tieteen menetelmin

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

Iskuryhmä ilmastonmuutosta vastaan

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

Islannin tulivuorenpurkaus 2010

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

Kalaruoan terveysvaikutukset

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

Kaupungin verkkosivujen määrittelyt

Jouni T. Tuomisto: Kaupungin verkkosivujen määrittelyt. Opasnet 2010. Viitattu 30.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 30.12.2024.

Komiteoita, tiedostoja ja muita entisajan keksintöjä

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

Kosteusvauriot altistus

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

Kuntakone

Sami Majaniemi: Kuntakone. Opasnet 2010. Viitattu 30.12.2024.

Lyijy ympäristö altistus

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

Matkojenhallintajärjestelmä

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

Metyylielohopea altistus Suomi

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

Narkolepsia Suomessa

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

Nettiajan kansalaisyhteiskunta

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

Opasnet-uskomusjärjestelmä

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

Opasnetin kehitystarpeita

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

Opasnetin käyttökoulutus

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

Opastopian toimintaympäristö

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

Postilaki

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

Päättäjän tietomonopoli on murrettava

Jouni T. Tuomisto: Päättäjän tietomonopoli on murrettava. Pamfletti. Opasnet 2010. Viitattu 30.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 30.12.2024.

Seurakuntavaalit 2010

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

Sikainfluenssa

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

Sikainfluenssarokotteen terveyshaitat

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

Suomalainen energiapolitiikka

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

Suomalaiset ydinvoimalat

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

Suomen energiantuotannon terveysvaikutusten arviointi

Teemu Rintala, Sami Majaniemi: Suomen energiantuotannon terveysvaikutusten arviointi. Opasnet 2010. Viitattu 30.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 30.12.2024.

Sähköinen sairauskertomus

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

THL:n kannanottoja ydinvoimasta

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

Terveyden ja hyvinvoinnin ajatushautomo

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

Terveydenhuollon tietojärjestelmä

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

Tiede 2.0

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

Tieteellis-poliittinen vallankumous

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

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

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

Tietotyö

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

Tutkimuslaitoksen tietopolitiikka

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

Uutisraivaaja 2011

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

Valtion palkkausjärjestelmä

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

Verovähennyskortti

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

Wikipuolue

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

YVA

Mikko Pohjola, Erkki Kuusisto, Jouni T. Tuomisto: YVA. Kommentteja YVA-lain arvioinnista. Opasnet 2010. Viitattu 30.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 30.12.2024.

Ympäristömelun vaikutuslaskentatiedot Suomi

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

Ympäristön tupakansavu altistus Suomi

Otto Hänninen, Erkki Kuusisto, Olli Leino: Ympäristön tupakansavu altistus Suomi. Opasnet 2010. Viitattu 30.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

Eurooppa

Pohjois-Eurooppa

Suomi
Ruotsi
Tanska
- Färsaaret
  1. pääsiäinen
  2. puput
  3. tiput

kukka	pallo	sää	ruumiinosa
ruusu	jalkapallo	sade	nenä

Ero sivun ”Hiekkalaatikko” versioiden välillä(ei yksikköä)
Obs	Syntymäaika	Nimi	Ikä
1	21.3.1978	Jukka	39
2	5.5.2000	Maria	12
3	2.1.1987	Mikko	30

Hauki on kala. ^[1]

Suomi on Euroopan maa. ^[2]

Eurooppaan kuuluu useita maita. ^[2]

Viitteet

↑ www.wikipedia.org Wikipedian artikkeli
↑ ^2,0 ^2,1 www.wikipedia.org Wikipedian artikkeli

Katso myös

moi

[1] Joo

[2] www.wikipedia.org Wikipedian artikkeli

[jee-3] 2,0 ^2,1 www.wikipedia.org Wikipedian artikkeli

[1]

[1]

[2]

@@ Rivi 390: / Rivi 390: @@
 * [[Projektinhallinta/hiekkalaatikko]]
+* [[Funktioita R-toolsiin]]
 ==moi==

Ero sivun ”Hiekkalaatikko” versioiden välillä

Versio 28. kesäkuuta 2012 kello 11.38

Sisällys

Muista ostaa

Terveysvaikutukset

R-testi

Komia loota

Eurooppa

Pohjois-Eurooppa

Viitteet

Katso myös

moi

Navigointivalikko