Projektinhallinta/hiekkalaatikko

R-koodi


library(OpasnetBaseUtils)
library(xtable)

####Budjettilaskenta: suunnitelluista palkka- ja muista menoista lasketaan kokonaisbudjetti.

# Kehityskohteita: Otetaan vapaakenttärivejä, joiden määrä riippuu jostain vastinrivistä.

budjettilaskenta <- function(page, laitos = "THL", vuosi = "2012", rahoittaja = "Suomen Akatemia", 
	projekti = "Projekti", työpaketti = "Työpaketti", työpaketti.add = "Työpaketti", vuosi.add = "2012", laitos.add =
	"THL", rahoittaja.add = "Suomen Akatamia", kustannuslaji.add = "Palkka VT7", määrä.add = 0, kuvaus.add = "") {

	# Haetaan budjettidata ja lisätään siihen kaikki ne sarakkeet joita taulussa ei ole.
	out <- op_baseGetData("opasnet_base", page)[, -c(1,2)]
	if(!"Projekti" %in% colnames(out)) {out <- cbind(out, data.frame(Projekti = projekti))}
	if(!"Työpaketti" %in% colnames(out)) {out <- cbind(out, data.frame(Työpaketti = työpaketti))}
	if(!"Vuosi" %in% colnames(out)) {out <- cbind(out, data.frame(Vuosi = vuosi))}
	if(!"Rahoittaja" %in% colnames(out)) {out <- cbind(out, data.frame(Rahoittaja = rahoittaja))}
	if(!"Laitos" %in% colnames(out)) {out <- cbind(out, data.frame(Laitos = laitos))}

	# Datan kuvaus lisätään jokaisen vuoden riville.
	kuvaukset <- out[out$Vuosi == "kuvaus", !colnames(out) %in% c("Result", "Vuosi")]
	colnames(kuvaukset)[colnames(kuvaukset) == "Result.Text"] <- "kuvaus"
	out <- merge(out, kuvaukset)

	# Turhat (tyhjät) sarakkeet ja rivit poistetaan. 
	out <- out[out$Vuosi != "kuvaus", !colnames(out) %in% c("Result.Text", "obs.1")]
	
	# Sarakkeiden nimet siistitään ja määrä muutetaan faktorista numeroiksi.
	colnames(out)[colnames(out) == "Result"] <- "määrä"
	out$määrä <- as.numeric(as.character(out$määrä))
	
	# Lisätään rivi, jossa on käyttöliittymän kautta annetut tilapäisen tapahtuman tiedot.
	temp <- data.frame(Projekti = projekti, Työpaketti = työpaketti.add, Vuosi = vuosi.add, Laitos = laitos.add, 
		Rahoittaja = rahoittaja.add, Kustannuslaji = kustannuslaji.add, määrä = määrä.add, kuvaus = kuvaus.add)
	out <- rbind(out, temp)
	
	# Haetaan sivukulu- ja yleiskustannuskertoimet Opasnetistä, siistitään ja yhdistetään budjettiin.
	kertoimet <- op_baseGetData("opasnet_base", "Op_fi2704")[, 3:8]
	kertoimet <- reshape(kertoimet, v.names = "Result", idvar = "obs.1", timevar = "Kerroin", direction = "wide")
	kertoimet <- kertoimet[, colnames(kertoimet) != "obs.1"]
	colnames(kertoimet)[colnames(kertoimet)=="Result.Yleiskustannus"] <- "Yleiskustannus"
	colnames(kertoimet)[colnames(kertoimet)=="Result.sivukulu"] <- "Sivukulu"
	out <- merge(out, kertoimet, all.x = TRUE)

	# Haetaan laitoksen vaativuusluokkien keskipalkat, siistitään ja yhdistetään budjettiin.
	palkka <- op_baseGetData("opasnet_base", "Op_fi2705")[, 3:6]
	colnames(palkka)[colnames(palkka)=="Result"] <- "kkpalkka"
	colnames(palkka)[colnames(palkka)=="Vaativuusluokka"] <- "Kustannuslaji"
	out <- merge(out, palkka, all.x=TRUE)

	# Budjetissa on erikseen aktiviteetin määrä (määrä) ja yksikköhinta (kkpalkka).
	# Yksikköhinta on kuukausipalkka palkoille ja euromääräisille aktiviteeteille 1.
	out$kkpalkka <- ifelse(is.na(out$kkpalkka), 1, out$kkpalkka)
	
	# Muutetaan aktiviteetit euromääräisiksi summiksi. Entinen määrä-sarake muutetaan henkilökuukausiksi.
	out$summa <- out$määrä * out$kkpalkka
	colnames(out)[colnames(out)=="määrä"] <- "htkk"

	# Merkitään joka rivi joko tuloksi tai menoksi.
	out$tulomeno <- ifelse(out$Kustannuslaji == "Tulot" | substr(paste(out$kuvaus, "     "), 1,4) == "TULO", "Tulot", "Menot")
	
	# Seuraavaksi etsitään sellaiset tulot, jotka automaattisesti skaalataan jonkin määrätyn menon suuruiseksi.
	# Vertailukohtana toimiva meno tunnistetaan indeksien arvojen avulla.
	# Kehityskohde: kaikkia indeksin arvoja ei tarvitse määritellä, vaan voi käyttää "villiä korttia".
	# rahoitus sisältää tiedon siitä, mitä menoja rahoitetaan ja millä prosentilla (osuus 1 tarkoittaa 100%).
	rahoitus <- out[substr(paste(out$kuvaus, "     "), 1, 9) == "TULOVASTA", ]
	rahoitus$osuus <- rahoitus$htkk
	rahoitus <- (rahoitus[, c("Projekti", "Työpaketti", "Vuosi", "Laitos", "Kustannuslaji", "tulomeno", "osuus")])
	rahoitus$tulomeno <- "Menot"

	# temp yhdistää tiedon että rahoitetaan määriteltyihin menoihin. Sen jälkeen tämä summa nimetään tuloksi
	# ja lisätään budjettitauluun ja siirrettään summa-sarakkeeseen.
	temp <- merge(out, rahoitus)
	temp$osuus <- temp$summa * temp$osuus
	temp <- temp[, c("Laitos", "Vuosi", "Kustannuslaji", "Työpaketti", "Projekti", "tulomeno", "osuus")]
	temp$tulomeno <- "Tulot"
	out <- merge(out, temp, all.x = TRUE)
	out$summa <- ifelse(is.na(out$osuus), out$summa, out$osuus)

	# Lasketaan sivukulut ja yleiskustannukset ja merkitään joka rivi joko tuloksi tai menoksi.
	test <- substr(paste(out$Kustannuslaji, "     "), 1, 6) == "Palkka" # Onko palkkarivi?
	out$htkk <- ifelse(test | substr(paste(out$kuvaus, "      "), 1, 4) == "TULO", out$htkk, 0)
	out$Sivukulu <- ifelse(test, out$Sivukulu * out$summa, 0)
	out$Yleiskustannus <- ifelse(test, out$Yleiskustannus * (out$Sivukulu + out$summa), 0)
	out$tulomeno <- ifelse(out$Kustannuslaji == "Tulot" | substr(paste(out$kuvaus, "     "), 1,4) == "TULO", "Tulot", "Menot")

	# Lisätään omat rivit sivukuluille ja yleiskustannuksille.
	palkat <- out[substr(paste(out$Kustannuslaji, "      "), 1, 6) == "Palkka", ]
	palkat$Kustannuslaji <- "Yleiskustannus"
	palkat$summa <- palkat$Yleiskustannus
	out <- rbind(out, palkat)
	palkat$Kustannuslaji <- "Sivukulu"
	palkat$summa <- palkat$Sivukulu
	out <- rbind(out, palkat)

	# Menot merkitään negatiivisiksi, jotta voidaan laskea tulot ja menot yhteen.
	out$summa <- ifelse(out$tulomeno == "Tulot", out$summa, -out$summa)
	
	# Nyt lisätään TULOLOPUT eli tieto siitä, mikä rahoittaja maksaa tietyn osuuden jäljelle jäävästä summasta.
	# Summat lasketaan vuoden, työpaketin ja projektin yhdistelmille.
	# Ensin tyhjennetään summasarake TULOLOPUT-riveiltä, koska siinä on osuus vaikka pitää olla 0.
	out$summa <- ifelse(substr(paste(out$kuvaus, "          "), 1,9) == "TULOLOPUT", 0, out$summa)
	tarve <- as.data.frame(as.table(tapply(-out$summa, out[, c("Vuosi", "Työpaketti", "Projekti")], sum)))
	tarve$Freq <- ifelse(tarve$Freq < 0, 0, tarve$Freq)
	out <- merge(out, tarve)
	# Rahoitusosuus on htkk-sarakkeessa ja tarvittava työpaketin tilanne (=tarve) Freq-sarakkeessa.
	out$summa <- ifelse(substr(paste(out$kuvaus, "         "), 1, 9) == "TULOLOPUT", out$htkk * out$Freq, out$summa)
	out <- out[, c("Projekti", "Työpaketti", "Vuosi", "Laitos", "Rahoittaja", "Kustannuslaji", "tulomeno", "htkk", "summa", "kuvaus")]

	return(out)
}

#out <- budjettilaskenta("Op_fi2682", rahoittaja = "STM", projekti = "Tekaisu", työpaketti = "TP1", työpaketti.add = "TP1", rahoittaja.add = "THL")

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

################### Budjettiyhteenveto laskee erilaisia summatauluja budjettilaskennan tuottamasta taulusta, jossa on jokainen tapahtuma eritelty.

budjettiyhteenveto <- function(budjettitaulu, jaottelu = c(1,2,3)) {
	out <- budjettitaulu
	# Kaikki palkat muutetaan samanlaisiksi.
	out$Kustannuslaji <- ifelse(substr(paste(out$Kustannuslaji, "      "), 1, 6) == "Palkka", "Palkka", as.character(out$Kustannuslaji))


	jaottelu <- c("tulomeno", c("Projekti", "Työpaketti", "Vuosi", "Laitos", "Rahoittaja", "Kustannuslaji")[jaottelu])
	out <- as.data.frame(as.table(tapply(out$summa, out[, jaottelu], sum)))

	# Tyhjät rivit poistetaan ja otsikoita parannetaan.
	colnames(out)[colnames(out) == "Freq"] <- "Summa"
	out <- out[!is.na(out$Summa), ]

	return(out)
}


#print(xtable(budjettiyhteenveto(out, jaottelu)), type='html')
#print(xtable(budjettiyhteenveto(out, c(2,6))), type='html')

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

Tällä käyttöliittymällä ohjataan budjettilaskentaa:

+ Näytä koodi - Piilota koodi

budjettilaskenta("Tähän tapahtumatiedot sisältävän sivun tunniste")

generic

Tämä koodi sisältää funktiot dropall ja PTable ja luonnokset koodeista EVPI, EVPPI, stattable.

+ Näytä koodi - Piilota koodi

##### dropall #################################

dropall <- function(x){

## dropall pudottaa data.framesta pois kaikki faktorien sellaiset levelit, joita ei käytetä.
## parametrit: x = data.frame 

    isFac <- NULL
    for (i in 1:dim(x)[2]){isFac[i] = is.factor(x[ , i])}

    for (i in 1:length(isFac)){
        x[, i] <- x[, i][ , drop = TRUE]
        }
    return(x)
    }

##### PTable ####################################

PTable <- function(P, n) {

## PTable muuntaa arvioinnin todennäköisyystaulun sopivaan muotoon arviointia varten.
## Parametrit: P = todennäköisyystaulu Opasnet-kannasta kaivettuna.
##             n = iteraatioiden lukumäärä Monte Carlossa
## Todennäköisyystaulun sarakkeiden on oltava: Muuttuja, Selite, Lokaatio, P
## Tuotteena on Monte Carloa varten tehty taulu, jonka sarakkeina ovat
## n (iteraatio) ja kaikki todennäköisyystaulussa olleet selitteet, joiden riveille on arvottu
## lokaatiot niiden todennäköisyyksien mukaisesti, jotka todennäköisyystaulussa oli annettu.

Pt <- unique(P[,c("Muuttuja", "Selite")])
Pt <- data.frame(Muuttuja = rep(Pt$Muuttuja, n), Selite = rep(Pt$Selite, n), obs = rep(1:n, each = nrow(Pt)), P = runif(n*nrow(Pt), 0, 1))
for(i in 2:nrow(P)){P$Result[i] <- P$Result[i] + ifelse(P$Muuttuja[i] == P$Muuttuja[i-1] & P$Selite[i] == P$Selite[i-1], P$Result[i-1], 0)}
P <- merge(P, Pt)
P <- P[P$P <= P$Result, ]
Pt <- as.data.frame(as.table(tapply(P$Result, as.list(P[, c("Muuttuja", "Selite", "obs")]), min)))
colnames(Pt) <- c("Muuttuja", "Selite", "obs", "Result")
Pt <- Pt[!is.na(P$Result), ]
P <- merge(P, Pt)
P <- P[, !colnames(P) %in% c("Result", "P", "Muuttuja")]
P <- reshape(P, idvar = "obs", timevar = "Selite", v.names = "Lokaatio", direction = "wide")
colnames(P) <- ifelse(substr(colnames(P), 1, 9) == "Lokaatio.", substr(colnames(P), 10,30), colnames(P))
return(P)
}
######################################

##### EVPI = Expected Value of Perfect Information #############

EVPI <- function(outcome, decision){

#### DOES NOT WORK YET
## evpi produces the expected value of perfect information about a decision situation.

# Current code was developed for a previous version and does not yet work.

evpi <- (apply(apply(cost, c(2,3,4), mean, na.rm=TRUE), c(1,3), min, na.rm=TRUE) - apply(apply(cost, c(1,2,4), min, 
na.rm=TRUE), c(2,3), mean, na.rm=TRUE))/1e6
plot5 <- as.data.frame(as.table(apply(evpi, 2, sum)))
plot5 <- ggplot(plot5, aes(Var1, weight=Freq)) + geom_bar(position="dodge") + 
scale_x_discrete("Year") + scale_y_continuous("Value of perfect information (M€)")
plot5
}

##### EVPPI = Expected Value of Partial Perfect Information ###########

EVPPI <- function(outcome, decision, vars) {

#### DOES NOT WORK YET
## EVPPI calculates the expected value of partial perfect information for a decision.
## Parameters: all parameters must have the same length n = number of iterations.
##             outcome = outcome of interest (a vector with numeric values)
##             decision = decision options (a vector with numeric or character values)
##             vars = uncertain variables of interest (a data.frame with one column for each variable)

# Current code was developed for a previous version and does not yet work.
aer <- DataframeToArray(ae)
aer <- aer[,,c(2,1,4,5),]
dropnonmax <- function(x) {
	x[x<max(x, na.rm = TRUE)] <- NA
	return(x)
}
aer <- apply(aer, c(1,2,4), dropnonmax)
aer <- as.data.frame(as.table(aer))
aer <- aer[,c(2,3,1,4,5)]
colnames(aer)[3] <- "Policy"
aer <- aer[is.na(aer[,"Freq"])==FALSE,]
aer <- IntArray(aer, cost, "Cost")
aer <- DataframeToArray(aer[,c("obs","Country","Year","Cost")],"Cost")
test2 <- (apply(apply(cost, c(2,3,4), mean, na.rm=TRUE), c(1,3), min, na.rm=TRUE) - apply(aer, c(2,3), mean))/1e6
plot6 <- as.data.frame(as.table(apply(test2, 2, sum)))
plot6 <- ggplot(plot6, aes(Var1, weight=Freq)) + geom_bar(position="dodge") + 
scale_x_discrete("Year") + scale_y_continuous("Value of perfect information (M€)")
plot6
test2==evpi #test whether the values are the same
test2-evpi 
# It seems that for some reason aer evppi is slightly smaller than evpi, 
# although it should be the only variable that varies in the "Policy" dimension
}

##### stattable ##########################################

stattable <- function(data, outcome, indices, obs = "obs", P = 0.95, dec = 2) {

#### DOES NOT WORK YET
## stattable calculates mean, sd, and P % confidence intervals for a data.frame.
## Parameters: data    = data.frame with the values
##             outcome = name of the column in data containing the outcome.
##             indices = a vector of names of columns used as indices.
##             obs     = name of the column in data containing the number of iteration.
##             P       = probability that the true outcome is between the confidence interval.

out <- tapply(data[, colnames(data) == outcome], c(indices, obs), sum, na.rm=TRUE)
ci <- apply(out, 1:length(indices), quantile, probs=c((1-P)/2, 1/2+P/2))
means <- apply(out, 1:length(indices), mean)
sd <- apply(out, 1:length(indices), sd)
out <- paste(round(means), " ± ", sd, " (", round(ci[1,,]), "-", round(ci[2,,]), ")", sep="")
out
}

Budjetti

Toimenpiteiden priorisoinnin ja TVA-valmiuksien luomisen osioita (TP2+TP3) rahoitettaisiin terveydensuojeluohjelmaan varatuilla rahoilla (2012-2014). Päätöksenteon uudet mallit -osion ensimmäinen vaihe rahoitettaisiin STM:n tutkimus- ja kehitysrahoista (2012) ja toinen ja kolmas vaihe rahoitettaisiin Kaste2-ohjelmasta (2013-2014). Ohjaus- ja seurantaryhmien kulut hallinnoitaisiin TP3:n osana.

Suuntaa antava arvio työmäärän (ja kustannusten) jakautumisesta eri osioihin ja eri ajanjaksoille (htkk).
Osio	2012	2013	2014	Yhteensä
TP1 Päätöksenteon uudet mallit	12	24	18	54
TP2 Toimenpiteiden priorisointi	14	8	4	26
TP3 TVA-valmiudet	6	12	12	30
TP4 Lainsäädännön ja sen toimeenpanon arviointi ^*	-	-	-	-
TP5 Päätöksenteon uudistaminen^**	0	12?	48?	60?
Yhteensä	32	56?	82?	170?

^* TP4 suoritetaan virkatyönä STM- ja YM-ministeriöissä, eikä sen työmäärä näy tässä.

^** TP5 suunnitelma on vain suuntaa-antava, koska se suunnitellaan yksityiskohtaisesti vasta 2012 aikana. Näyttää kuitenkin selvältä, että loppua kohden sen työmäärä tulee olemaan selvästi suurempi kuin muissa työpaketeissa yhteensä.

TP1

Työmäärä ensimmäisessä vaiheessa on n. 12 htkk, toisessa vaiheessa n. 30 htkk ja kolmannessa vaiheessa n. 6 htkk.

TP1:n vuotuiset työmäärät ja htkk:ien jakautuminen osallistujien kesken
Osallistuja	2012	2013	2014	Yhteensä
Kilpailutettava partneri	9	12	12	33
THL (Jouni Tuomisto, N.N.)	2	2	1	5
Kuopion kaupunki	1	4	2	7
Muu kunta	0	4	2	6
Pohjois-Savon (tai muu) ELY-keskus	0	1	0,5	1,5
Itä-Suomen (tai muu) AVI	0	1	0,5	1,5
Yhteensä	12	24	18	54

**Osabudjetti työpaketille TP1 vuodelle 2012.**
Laitos	Rahoittaja	Kustannuslaji	Summa
Kuopio		Palkka	-3000
Kuopio		Sivukulu	-1050
Kuopio		Yleiskustannus	0
Kilpailutettava partneri		Palkka	-36000
Kilpailutettava partneri		Sivukulu	-22680
Kilpailutettava partneri		Yleiskustannus	-8802
THL		Palkka	-4200
THL		Sivukulu	-2394
THL		Yleiskustannus	-989
THL		Ostopalvelu	-2000
Menot yhteensä			-81115
	Kuopio		4050
	STM		70000
	THL		7065
Tulot yhteensä			81115

TP2

Ensimmäinen vaihe: terveysvaikutusten arviointi

Altisteiden listaaminen (kemikaaliohjelma ym.) (1 htkk)
Terveysvaikutusten listaaminen (1 htkk)
Annos-vastefunktioiden listaaminen (mm. IRIS ja muut kv-tietokannat) (1 htkk)
Altistustasojen arviointi (1 htkk)
Terveysvaikutusten arviointi (1 htkk)
Insidenssi-tautikuormamuunnokset (2 htkk)

Toinen vaihe: toimenpidekustannukset ja priorisointi

Riskinhallintavaihtoehtojen identifiointi (kirjallisuuskatsaus) (2 htkk)
Riskinhallintakustannusten arviointi (3 htkk)

Yht 12 htkk (maisteri tai postdoc tasoinen)

Työn ohjaus 2 htkk (erikoistutkija tai dosentti)

**Osabudjetti työpaketeille TP2 ja TP3 (Terveydensuojeluohjelma) vuodelle 2012.**
Laitos	Rahoittaja	Kustannuslaji	Summa
THL		Ostopalvelu	-14000
THL		Palkka	-71050
THL		Sivukulu	-40499
THL		Yleiskustannus	-16732
Menot yhteensä			-142281
	STM		100000
	THL		42281
Tulot yhteensä			142281

Kokonaisbudjetti 2012 - 2014

Projektinhallinta/hiekkalaatikko(€, pm)
Obs	Obs	Rahoittaja	Laitos	Työpaketti	Kustannuslaji	2012	2013	2014	kuvaus
1	1	STM	Tuntematon	TP1	Palkka VT5	5	12	12	Kilpailutettava työ: projektikoordinaattori htkk à 7500 (sis sivukulut+YK)
2	26	THL	Nordem	TP1	Ostopalvelu	8000	0	0	Mikko Pohjola: Environmental health assessment for use
3	2	STM	THL	TP1	Palkka VT4	1	1	1	Erikoistutkija Jouni Tuomisto
4	3	STM	THL	TP1	Tulot	0	0	0	Tuke-rahoitus
5	4	STM	THL	TP1	Tulot	0	100000	80000	Kaste2-rahoitus
6	27	STM	THL	TP1	Tulot	35000	0	0	STM:n ympäristöterveyden hankerahoitus (terveydensuojeluohjelma)
7	5	THL	THL	TP1	Palkka VT4	1	1	1	TULOVASTA: THL:n budjettirahaa omien työntekijöiden palkkoihin (J.T.)
8	6	THL	THL	TP1	Tulot	1	1	1	TULOLOPUT: THL:n rahoitus puuttuvasta osuudesta
9	7	STM	THL	TP2	Palkka VT6	3	3	3	Tutkija A.A. (ympäristöterveys)
10	9	STM	THL	TP2	Palkka VT6	8	6	2	Tutkija N.N. (arviointi ja päätöksenteko)
11	28	STM	THL	TP2	Palkka VT9	5	0	0	Graduntekijä 2 kpl I.?. ja ?.K.
12	10	STM	THL	TP2	Ostopalvelu	6000	12000	12000	Muut kulut (mm. ostopalveluna tiedonkeräystä piloteissa)
13	11	STM	THL	TP2	Tulot	50000	28000	28000	STM:n ympäristöterveyden hankerahoitus (terveydensuojeluohjelma)
14	12	THL	THL	TP2	Tulot	1	1	1	TULOLOPUT: THL:n budjettirahaa
15	13	STM	THL	TP3	Tulot	15000	37000	37000	STM:n ympäristöterveyden hankerahoitus (terveydensuojeluohjelma)
16	14	STM	THL	TP3	Palkka VT4	1	2	2	Erikoistutkija Jouni Tuomisto
17	15	STM	THL	TP3	Palkka VT5	0.5	0.5	0.5	Asiantuntija T.K.
18	16	EU	THL	TP3	Palkka VT7	2	3	3	Ympäristöinsinööri M.S., Kuopion edustaja pilotissa
19	28	EU	THL	TP3	Palkka VT7	1	1	1	TULOVASTA: Ympäristöinsinööri M.S., rahoitus Urgenche-projektista joka palvelee myös tätä työtä
20	17	THL	THL	TP3	Palkka VT4	1	1	1	TULOVASTA: THL:n budjettirahaa omien työntekijöiden palkkoihin (J.T.)
21	18	THL	THL	TP3	Tulot	1	1	1	TULOLOPUT: THL:n budjettirahaa
22	19	STM	THL	TP5	Palkka VT6	0	12	48	Toimintatapojen jalkauttamisprojektin koordinaattori N.N.
23	20	STM	THL	TP5	Tulot	0	35000	35000	STM:n ympäristöterveyden hankerahoitus
24	21	STM	THL	TP5	Tulot	1	1	1	TULOLOPUT: STM:n erillismääräraha toimintatapojen jalkauttamiseen
25	22	STM	THL	TP1	Ostopalvelu	2000	2000	2000	Tiedonkeruuta
26	23	STM	THL	TP3	Ostopalvelu	2000	2000	2000	Tiedonkeruuta
27	24	Kuopio	Kuopio	TP1	Palkka VT6	1	4	2	Kuopion kaupungin osallistuminen kartoitukseen
28	25	Kuopio	Kuopio	TP1	Palkka VT6	1	1	1	TULOVASTA: Kuopion rahoitus virkatyönä tehtävään osallistumiseen

R-koodit budjetin ajamiseen

Tämä koodi tuottaa vain tapahtumalistauksen ilman yhteenvetoja.

+ Näytä koodi - Piilota koodi

out <- budjettilaskenta("Op_fi2682", rahoittaja = "STM", projekti = "Tekaisu", työpaketti = "TP1", työpaketti.add = "TP1", rahoittaja.add = "THL")
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.

Projektinhallinta/hiekkalaatikko

Sisällys

R-koodi

generic

Budjetti

Kokonaisbudjetti 2012 - 2014

R-koodit budjetin ajamiseen

Navigointivalikko