Hiekkalaatikko

Opasnet Suomi

Loikkaa: valikkoon, hakuun

Data updated successfully!

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

Quadratic: $u (x) = a x + b x 2 + c$

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

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

Polyneux: $u(x)=\sum^n_{i=1}P(x)e^{\lambda_ix}$

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

id	Tiedoston nimi	Viimeksi muokattu	Koko (kB)
3236	heimtsa_ohje.txt	27.11.2009 12:52:16	2.46
1109	m-files_testi.txt	25.8.2010 7:26:19	0.03

Päivitetty.

$123 + α - 555 - 666 + ω$

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

Data updated successfully!

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...

Data updated successfully!

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. (http://fi.opasnet.org/fi/Apua_typeryyksien_keksij%C3%B6ille!). Viitattu 20.05.2012.

Argumenta Sami Majaniemi, Mikko Pohjola, Jouni T. Tuomisto: Argumenta. Opasnet 2010. (http://fi.opasnet.org/fi/Argumenta). Viitattu 20.05.2012.

Arseeni altistuminen Suomi Hannu Komulainen: Arseeni altistuminen Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Arseeni_altistuminen_Suomi). Viitattu 20.05.2012.

Arviointi THL:n budjetista Jouni T. Tuomisto: Arviointi THL:n budjetista. Opasnet 2010. (http://fi.opasnet.org/fi/Arviointi_THL:n_budjetista). Viitattu 20.05.2012.

Arviointi kirjailijoiden tulojen turvaamisesta Jouni T. Tuomisto: Arviointi kirjailijoiden tulojen turvaamisesta. Opasnet 2010. (http://fi.opasnet.org/fi/Arviointi_kirjailijoiden_tulojen_turvaamisesta). Viitattu 20.05.2012.

Arviointi pohjavesilaitoksen mikrobiologisista riskeistä Päivi Meriläinen: Arviointi pohjavesilaitoksen mikrobiologisista riskeistä. Opasnet 2010. (http://fi.opasnet.org/fi/Arviointi_pohjavesilaitoksen_mikrobiologisista_riskeist%C3%A4). Viitattu 20.05.2012.
Päivi Meriläinen: Arviointi pohjavesilaitoksen mikrobiologisista riskeistä. Opasnet 2010. (http://fi.opasnet.org/fi/Arviointi_pohjavesilaitoksen_mikrobiologisista_riskeist%C3%A4). Viitattu 20.05.2012.

Arvostuspeli Jouni T. Tuomisto: Arvostuspeli. Opasnet 2010. (http://fi.opasnet.org/fi/Arvostuspeli). Viitattu 20.05.2012.

Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon Jouni T. Tuomisto: Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon. Luento. Opasnet 2010. (http://fi.opasnet.org/fi/Arvostusteoria._Ehdotus_markkinatalouden_aiheuttaman_riippuvuuden_hoitoon). Viitattu 20.05.2012.

Avoin arviointi erityistilanteessa Jouni T. Tuomisto: Avoin arviointi erityistilanteessa. Ohjeistus. Opasnet 2010. (http://fi.opasnet.org/fi/Avoin_arviointi_erityistilanteessa). Viitattu 20.05.2012.

Energiantuotannon kasvihuonekaasupäästöt Suomessa Matleena Tuomisto, Noora Koponen, Teemu Rintala: Energiantuotannon kasvihuonekaasupäästöt Suomessa. Opasnet 2010. (http://fi.opasnet.org/fi/Energiantuotannon_kasvihuonekaasup%C3%A4%C3%A4st%C3%B6t_Suomessa). Viitattu 20.05.2012.

Fluoridi altistuminen Hannu Komulainen, Olli Leino: Fluoridi altistuminen. Muuttuja. Opasnet 2010. (http://fi.opasnet.org/fi/Fluoridi_altistuminen). Viitattu 20.05.2012.

Formaldehydi altistus Suomi Eero Priha, Otto Hänninen, Olli Leino: Formaldehydi altistus Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Formaldehydi_altistus_Suomi). Viitattu 20.05.2012.

Heande-projektinhallinta Jouni T. Tuomisto: Heande-projektinhallinta. Projektinhallintajärjestelmän esittely. Opasnet 2010. (http://fi.opasnet.org/fi/Heande-projektinhallinta). Viitattu 20.05.2012.

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. (http://fi.opasnet.org/fi/Hy%C3%B6ty-riskiarviointi_ydinvoimasta_Suomessa). Viitattu 20.05.2012.

Ilmastokäräjät Jouni T. Tuomisto: Ilmastokäräjät. Tutkimussuunnitelma. Opasnet 2010. (http://fi.opasnet.org/fi/Ilmastok%C3%A4r%C3%A4j%C3%A4t). Viitattu 20.05.2012.

Ilmastonmuutos Matleena Tuomisto, Jouni T. Tuomisto: Ilmastonmuutos. Opasnet 2010. (http://fi.opasnet.org/fi/Ilmastonmuutos). Viitattu 20.05.2012.

Ilmastopolitiikkaa voisi ohjata tieteen menetelmin Jouni T. Tuomisto, Mikko V. Pohjola: Ilmastopolitiikkaa voisi ohjata tieteen menetelmin. Mielipidekirjoitus. Opasnet 2010. (http://fi.opasnet.org/fi/Ilmastopolitiikkaa_voisi_ohjata_tieteen_menetelmin). Viitattu 20.05.2012.

Iskuryhmä ilmastonmuutosta vastaan Jouni T. Tuomisto: Iskuryhmä ilmastonmuutosta vastaan. Pamfletti. Opasnet 2010. (http://fi.opasnet.org/fi/Iskuryhm%C3%A4_ilmastonmuutosta_vastaan). Viitattu 20.05.2012.

Islannin tulivuorenpurkaus 2010 Jouni T. Tuomisto, Pauliina Ahtoniemi: Islannin tulivuorenpurkaus 2010. Opasnet 2010. (http://fi.opasnet.org/fi/Islannin_tulivuorenpurkaus_2010). Viitattu 20.05.2012.

Kalaruoan terveysvaikutukset Olli Leino: Kalaruoan terveysvaikutukset. Opasnet 2010. (http://fi.opasnet.org/fi/Kalaruoan_terveysvaikutukset). Viitattu 20.05.2012.

Kaupungin verkkosivujen määrittelyt Jouni T. Tuomisto: Kaupungin verkkosivujen määrittelyt. Opasnet 2010. (http://fi.opasnet.org/fi/Kaupungin_verkkosivujen_m%C3%A4%C3%A4rittelyt). Viitattu 20.05.2012.

Kaupunkien lämpösaarekkeiden lieventämisen terveysvaikutukset EuroopassaMalline:Julkaisu.default Kaupunkirakenne - kansanterveys Matti Jantunen, Jouni T. Tuomisto: Kaupunkirakenne - kansanterveys. Opasnet 2010. (http://fi.opasnet.org/fi/Kaupunkirakenne_-_kansanterveys). Viitattu 20.05.2012.

Kloorauksen sivutuotteet altistus Suomi Päivi Meriläinen, Olli Leino: Kloorauksen sivutuotteet altistus Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Kloorauksen_sivutuotteet_altistus_Suomi). Viitattu 20.05.2012.

Komiteoita, tiedostoja ja muita entisajan keksintöjä Jouni T. Tuomisto: Komiteoita, tiedostoja ja muita entisajan keksintöjä. Opasnet 2010. (http://fi.opasnet.org/fi/Komiteoita,_tiedostoja_ja_muita_entisajan_keksint%C3%B6j%C3%A4). Viitattu 20.05.2012.

Kosteusvauriot altistus Ulla Haverinen-Shaughnessy, Olli Leino: Kosteusvauriot altistus. Opasnet 2010. (http://fi.opasnet.org/fi/Kosteusvauriot_altistus). Viitattu 20.05.2012.

Kuntakone Sami Majaniemi: Kuntakone. Opasnet 2010. (http://fi.opasnet.org/fi/Kuntakone). Viitattu 20.05.2012.

Lyijy ympäristö altistus Otto Hänninen, Olli Leino: Lyijy ympäristö altistus. Opasnet 2010. (http://fi.opasnet.org/fi/Lyijy_ymp%C3%A4rist%C3%B6_altistus). Viitattu 20.05.2012.

Matkojenhallintajärjestelmä Jouni T. Tuomisto: Matkojenhallintajärjestelmä. Ehdotus parannuksesta. Opasnet 2010. (http://fi.opasnet.org/fi/Matkojenhallintaj%C3%A4rjestelm%C3%A4). Viitattu 20.05.2012.

Metyylielohopea altistus Suomi Olli Leino, Juha Villman: Metyylielohopea altistus Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Metyylielohopea_altistus_Suomi). Viitattu 20.05.2012.

Narkolepsia Suomessa Noora Koponen, Minna-Mari Hämäläinen: Narkolepsia Suomessa. Muuttuja. Opasnet 2010. (http://fi.opasnet.org/fi/Narkolepsia_Suomessa). Viitattu 20.05.2012.

Nettiajan kansalaisyhteiskunta Sami Majaniemi: Nettiajan kansalaisyhteiskunta. Opasnet 2010. (http://fi.opasnet.org/fi/Nettiajan_kansalaisyhteiskunta). Viitattu 20.05.2012.

Opasnet-uskomusjärjestelmä Jouni T. Tuomisto: Opasnet-uskomusjärjestelmä. Opasnet 2010. (http://fi.opasnet.org/fi/Opasnet-uskomusj%C3%A4rjestelm%C3%A4). Viitattu 20.05.2012.

Opasnetin kehitystarpeita Jouni T. Tuomisto: Opasnetin kehitystarpeita. Yhteistyömahdollisuuksien kartoitus. Opasnet 2010. (http://fi.opasnet.org/fi/Opasnetin_kehitystarpeita). Viitattu 20.05.2012.

Opasnetin käyttökoulutus Jouni T. Tuomisto, Mikko Pohjola, Juha Villman: Opasnetin käyttökoulutus. Koulutustilaisuus. Opasnet 2010. (http://fi.opasnet.org/fi/Opasnetin_k%C3%A4ytt%C3%B6koulutus). Viitattu 20.05.2012.

Opastopian toimintaympäristö Sami Majaniemi: Opastopian toimintaympäristö. Opasnet 2010. (http://fi.opasnet.org/fi/Opastopian_toimintaymp%C3%A4rist%C3%B6). Viitattu 20.05.2012.

Postilaki Jouni T. Tuomisto: Postilaki. Ehdotus parannuksesta. Opasnet 2010. (http://fi.opasnet.org/fi/Postilaki). Viitattu 20.05.2012.

Päättäjän tietomonopoli on murrettava Jouni T. Tuomisto: Päättäjän tietomonopoli on murrettava. Pamfletti. Opasnet 2010. (http://fi.opasnet.org/fi/P%C3%A4%C3%A4tt%C3%A4j%C3%A4n_tietomonopoli_on_murrettava). Viitattu 20.05.2012.

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. (http://fi.opasnet.org/fi/Radioaktiivisen_s%C3%A4teilyn_terveysvaikutukset_Suomessa). Viitattu 20.05.2012.

Seurakuntavaalit 2010 Jouni T. Tuomisto: Seurakuntavaalit 2010. Tutkimussuunnitelma. Opasnet 2010. (http://fi.opasnet.org/fi/Seurakuntavaalit_2010). Viitattu 20.05.2012.

Sikainfluenssa Noora Koponen, Jouni T. Tuomisto: Sikainfluenssa. Luonnos arvioinniksi. Opasnet 2010. (http://fi.opasnet.org/fi/Sikainfluenssa). Viitattu 20.05.2012.

Sikainfluenssarokotteen terveyshaitat Noora Koponen, Jouni T. Tuomisto: Sikainfluenssarokotteen terveyshaitat. Opasnet 2010. (http://fi.opasnet.org/fi/Sikainfluenssarokotteen_terveyshaitat). Viitattu 20.05.2012.

Suomalainen energiapolitiikka Teemu Rintala, Noora Koponen, Matleena Tuomisto, Sami Majaniemi, Aino Paakkinen, Jouni T. Tuomisto: Suomalainen energiapolitiikka. Opasnet 2010. (http://fi.opasnet.org/fi/Suomalainen_energiapolitiikka). Viitattu 20.05.2012.

Suomalaiset ydinvoimalat Teemu Rintala, Minna-Mari Hämäläinen, Noora Koponen, Jouni T. Tuomisto: Suomalaiset ydinvoimalat. Muuttuja. Opasnet 2010. (http://fi.opasnet.org/fi/Suomalaiset_ydinvoimalat). Viitattu 20.05.2012.

Suomen energiantuotannon terveysvaikutusten arviointi Teemu Rintala, Sami Majaniemi: Suomen energiantuotannon terveysvaikutusten arviointi. Opasnet 2010. (http://fi.opasnet.org/fi/Suomen_energiantuotannon_terveysvaikutusten_arviointi). Viitattu 20.05.2012.

Syövät työperäiset lukumäärä Antti Karjalainen, Olli Leino: Syövät työperäiset lukumäärä. Opasnet 2010. (http://fi.opasnet.org/fi/Sy%C3%B6v%C3%A4t_ty%C3%B6per%C3%A4iset_lukum%C3%A4%C3%A4r%C3%A4). Viitattu 20.05.2012.

Sähköinen sairauskertomus Jouni T. Tuomisto: Sähköinen sairauskertomus. Opasnet 2010. (http://fi.opasnet.org/fi/S%C3%A4hk%C3%B6inen_sairauskertomus). Viitattu 20.05.2012.

THL:n kannanottoja ydinvoimasta Matti Jantunen, Jouko Tuomisto, Raimo Salonen: THL:n kannanottoja ydinvoimasta. Opasnet 2010. (http://fi.opasnet.org/fi/THL:n_kannanottoja_ydinvoimasta). Viitattu 20.05.2012.

Terveyden ja hyvinvoinnin ajatushautomo Jouni T. Tuomisto, Sami Majaniemi: Terveyden ja hyvinvoinnin ajatushautomo. Opasnet 2010. (http://fi.opasnet.org/fi/Terveyden_ja_hyvinvoinnin_ajatushautomo). Viitattu 20.05.2012.

Terveydenhuollon tietojärjestelmä Jouni T. Tuomisto: Terveydenhuollon tietojärjestelmä. Luonnos arvioinniksi. Opasnet 2010. (http://fi.opasnet.org/fi/Terveydenhuollon_tietoj%C3%A4rjestelm%C3%A4). Viitattu 20.05.2012.

Tiede 2.0 Jouni T. Tuomisto: Tiede 2.0. Opasnet-muuttuja. Opasnet 2010. (http://fi.opasnet.org/fi/Tiede_2.0). Viitattu 20.05.2012.

Tieteellis-poliittinen vallankumous Jouni T. Tuomisto: Tieteellis-poliittinen vallankumous. Ajatelma. Opasnet 2010. (http://fi.opasnet.org/fi/Tieteellis-poliittinen_vallankumous). Viitattu 20.05.2012.

Tieteen ja politiikan vuorovaikutusstrategia Jouni T. Tuomisto, Sami Majaniemi: Tieteen ja politiikan vuorovaikutusstrategia. Opasnet 2010. (http://fi.opasnet.org/fi/Tieteen_ja_politiikan_vuorovaikutusstrategia). Viitattu 20.05.2012.

Tietoteknisiä ratkaisuja Opasnetissä Jouni T. Tuomisto, Juha Villman: Tietoteknisiä ratkaisuja Opasnetissä. Opasnet 2010. (http://fi.opasnet.org/fi/Tietoteknisi%C3%A4_ratkaisuja_Opasnetiss%C3%A4). Viitattu 20.05.2012.

Tietotyö Jouni T. Tuomisto: Tietotyö. Opasnet 2010. (http://fi.opasnet.org/fi/Tietoty%C3%B6). Viitattu 20.05.2012.

Tutkimuslaitoksen tietopolitiikka Jouni T. Tuomisto, Sami Majaniemi: Tutkimuslaitoksen tietopolitiikka. Opasnet 2010. (http://fi.opasnet.org/fi/Tutkimuslaitoksen_tietopolitiikka). Viitattu 20.05.2012.

Uutisraivaaja 2011 Sami Majaniemi: Uutisraivaaja 2011. Suunnitelma. Opasnet 2010. (http://fi.opasnet.org/fi/Uutisraivaaja_2011). Viitattu 20.05.2012.

Valtion palkkausjärjestelmä Jouni T. Tuomisto: Valtion palkkausjärjestelmä. Arviointi. Opasnet 2010. (http://fi.opasnet.org/fi/Valtion_palkkausj%C3%A4rjestelm%C3%A4). Viitattu 20.05.2012.

Verovähennyskortti Jouni T. Tuomisto: Verovähennyskortti. Verojärjestelmän parannusehdotus. Opasnet 2010. (http://fi.opasnet.org/fi/Verov%C3%A4hennyskortti). Viitattu 20.05.2012.

Wikipuolue Jouni T. Tuomisto: Wikipuolue. Opasnet 2010. (http://fi.opasnet.org/fi/Wikipuolue). Viitattu 20.05.2012.

YVA Mikko Pohjola, Erkki Kuusisto, Jouni T. Tuomisto: YVA. Kommentteja YVA-lain arvioinnista. Opasnet 2010. (http://fi.opasnet.org/fi/YVA). Viitattu 20.05.2012.

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. (http://fi.opasnet.org/fi/Ydinvoimaan_liittyvien_riskien_kokeminen_Suomessa). Viitattu 20.05.2012.

Ympäristömelun vaikutuslaskentatiedot Suomi Erkki Kuusisto: Ympäristömelun vaikutuslaskentatiedot Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Ymp%C3%A4rist%C3%B6melun_vaikutuslaskentatiedot_Suomi). Viitattu 20.05.2012.

Ympäristön tupakansavu altistus Suomi Otto Hänninen, Erkki Kuusisto, Olli Leino: Ympäristön tupakansavu altistus Suomi. Opasnet 2010. (http://fi.opasnet.org/fi/Ymp%C3%A4rist%C3%B6n_tupakansavu_altistus_Suomi). Viitattu 20.05.2012.

Ytrips Oy Jouni T. Tuomisto: Ytrips Oy. Yhteisöllisen liikennejärjestelmän liiketoimintasuunnitelma. Opasnet 2010. (http://fi.opasnet.org/fi/Ytrips_Oy). Viitattu 20.05.2012.

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.

+ 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, kustannuslaji.add = kustannuslaji.add, määrä.add = määrä.add, kuvaus.add = kuvaus.add)
if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]}
if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]}


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

print(xtable(budjettiyhteenveto(out, jaottelu)), type='html')
print(xtable(budjettiyhteenveto(out[out$tulomeno == "Tulot", ], jaottelu)), type='html')
print(xtable(budjettiyhteenveto(out[out$tulomeno == "Menot", ], jaottelu)), type='html')
out <- budjettiyhteenveto(out, c(3,5))
out <- out[out$tulomeno == "Tulot", ]
print(xtable(out), type='html')

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

On kaksi muutakin hiekkalaatikkoa: Hiekkalaatikko2 ja Hiekkalaatikko 2

9 comments

Post comment

You need JavaScript enabled for viewing comments

[1]

Hiekkalaatikko

Sisällysluettelo

Muista ostaa

Terveysvaikutukset

R-testi

Komia loota

Henkilökohtaiset työkalut

Nimiavaruudet

Muuttujat

Näkymät

Toiminnot

Haku

Valikko

Työkalut

Työkalut

Toisilla sivustoilla