Hiekkalaatikko

Päivitetty

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

Terveysvaikutukset

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

Hassu kuva

Hassuin kuva

Leveyspiiri (LA): Pituuspiiri (LO): Murskattavan malmin määrä (Mg/a) (murskaus.maara): Murskaukseen käytettävän prosessin päästökerroin (g/Mg) (paasto.kerroin): Iteraatioiden määrä (N): + 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

Jatropan viljelyala (ha): n: Mitkä tekijät halua eritellä tuloksessa?: Katalyytin määrä Ikä Kastelu Käytetty puristin Minkä yhden tekijän halua eritellä kuvaajassa?: Katalyytin määrä Ikä Kastelu Käytetty puristin + 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 06.01.2025.

Argumenta

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

Arseenialtistuminen Suomessa

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

Arviointi THL:n budjetista

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

Arviointi kirjailijoiden tulojen turvaamisesta

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

Arviointi pohjavesilaitoksen mikrobiologisista riskeistä

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

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

Arvostuspeli

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

Arvostusteoria. Ehdotus markkinatalouden aiheuttaman riippuvuuden hoitoon

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

Avoin arviointi erityistilanteessa

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

Energiantuotannon kasvihuonekaasupäästöt Suomessa

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

Fluoridi altistuminen

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

Formaldehydi altistus Suomi

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

Heande-projektinhallinta

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

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

Ilmastokäräjät

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

Ilmastonmuutos

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

Ilmastopolitiikkaa voisi ohjata tieteen menetelmin

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

Iskuryhmä ilmastonmuutosta vastaan

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

Islannin tulivuorenpurkaus 2010

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

Kalaruoan terveysvaikutukset

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

Kaupungin verkkosivujen määrittelyt

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

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

Komiteoita, tiedostoja ja muita entisajan keksintöjä

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

Kosteusvauriot altistus

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

Kuntakone

Sami Majaniemi: Kuntakone. Opasnet 2010. Viitattu 06.01.2025.

Lyijy ympäristö altistus

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

Matkojenhallintajärjestelmä

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

Metyylielohopea altistus Suomi

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

Narkolepsia Suomessa

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

Nettiajan kansalaisyhteiskunta

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

Opasnet-uskomusjärjestelmä

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

Opasnetin kehitystarpeita

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

Opasnetin käyttökoulutus

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

Opastopian toimintaympäristö

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

Postilaki

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

Päättäjän tietomonopoli on murrettava

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

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

Seurakuntavaalit 2010

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

Sikainfluenssa

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

Sikainfluenssarokotteen terveyshaitat

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

Suomalainen energiapolitiikka

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

Suomalaiset ydinvoimalat

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

Suomen energiantuotannon terveysvaikutusten arviointi

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

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

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

Sähköinen sairauskertomus

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

THL:n kannanottoja ydinvoimasta

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

Terveyden ja hyvinvoinnin ajatushautomo

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

Terveydenhuollon tietojärjestelmä

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

Tiede 2.0

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

Tieteellis-poliittinen vallankumous

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

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

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

Tietotyö

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

Tutkimuslaitoksen tietopolitiikka

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

Uutisraivaaja 2011

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

Valtion palkkausjärjestelmä

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

Verovähennyskortti

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

Wikipuolue

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

YVA

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

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

Ympäristömelun vaikutuslaskentatiedot Suomi

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

Ympäristön tupakansavu altistus Suomi

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

Ytrips OyMalline:Julkaisu.default

Tämä koodi tuottaa vain tapahtumalistauksen ilman yhteenvetoja.

Voit rajata tarkastelusi yhteen työpakettiin tai vuoteen. Tarkasteltava työpaketti: Kaikki työpaketit TP1 TP2 TP3 TP4 TP5 Tarkasteltava vuosi: Kaikki vuodet 2012 2013 2014 + 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.

Voit valita näytettävät yksityiskohdat ja myös rajata tarkastelusi yhteen työpakettiin tai vuoteen. Mitkä jaottelut haluat näyttää yhteenvedossa?: Projekti Työpaketti Vuosi Laitos Rahoittaja Kustannuslaji Tarkasteltavat työpaketit: TP1 TP2 TP3 TP4 TP5 Tarkasteltava vuosi: Kaikki vuodet 2012 2013 2014 Voit testata budjettia tällä tilapäisellä lisätapahtumalla. Työpaketti: TP1 TP2 TP3 TP4 TP5 Rahoittaja: THL STM Kustannuslaji: Palkka VT3 Palkka VT4 Palkka VT5 Palkka VT6 Palkka VT7 Palkka VT8 Palkka VT9 Palkka VT10 Ostopalvelu Matka Tarvike Tulot Budjettiin lisättävä summa: Kuvaus: + 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')