Ero sivun ”Projektinhallinta” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
pEi muokkausyhteenvetoa
(→‎Budjetin laskenta: tulot, laitos ja vuosi lisätty)
Rivi 10: Rivi 10:
####Budjettilaskenta: suunnitelluista palkka- ja muista menoista lasketaan kokonaisbudjetti. Toistaiseksi käsitellään vain menoja, tuloja ei ole sisällytetty.
####Budjettilaskenta: suunnitelluista palkka- ja muista menoista lasketaan kokonaisbudjetti. Toistaiseksi käsitellään vain menoja, tuloja ei ole sisällytetty.


budjettilaskenta <- function(page) {
budjettilaskenta <- function(page, laitos = "THL", vuosi = "2011") {
data <- op_baseGetData("opasnet_base", page)[, -c(1,2)]
data <- op_baseGetData("opasnet_base", page)[, -c(1,2)]
data <- reshape(data, idvar = "obs.1", timevar = "Havainto", direction = "wide")[, -c(1,4,5,6)]
data <- reshape(data, idvar = "obs.1", timevar = "Havainto", direction = "wide")[, -c(1,4,5,6)]
Rivi 17: Rivi 17:
temp <- data.frame(Kustannuslaji = kustannuslaji, määrä = määrä, kuvaus = kuvaus)
temp <- data.frame(Kustannuslaji = kustannuslaji, määrä = määrä, kuvaus = kuvaus)
data <- rbind(data, temp)
data <- rbind(data, temp)
print(xtable(data), type='html')
#print(xtable(data), type='html')
kertoimet <- op_baseGetData("opasnet_base", "Op_fi2704")
kertoimet <- op_baseGetData("opasnet_base", "Op_fi2704")
kertoimet <- kertoimet[kertoimet$Laitos == "THL" & kertoimet$Vuosi == "2011" & kertoimet$Rahoittaja == "STM", ]
kertoimet <- kertoimet[kertoimet$Laitos == "THL" & kertoimet$Vuosi == "2011" & kertoimet$Rahoittaja == "STM", ]
Rivi 26: Rivi 26:
palkka <- op_baseGetData("opasnet_base", "Op_fi2705")[, -c(1,2,7)]
palkka <- op_baseGetData("opasnet_base", "Op_fi2705")[, -c(1,2,7)]
#print(xtable(palkka), type = 'html')
#print(xtable(palkka), type = 'html')
palkka <- palkka[palkka$Laitos == "THL" & palkka$Vuosi == "2011", -c(1,3)]
palkka <- palkka[palkka$Laitos == laitos & palkka$Vuosi == vuosi, -c(1,3)]
colnames(palkka)[1] <- "Kustannuslaji"
colnames(palkka)[1] <- "Kustannuslaji"
#print(xtable(palkka), type = 'html')
#print(xtable(palkka), type = 'html')
Rivi 35: Rivi 35:
data$määrä <- ifelse(test, 0, data$määrä)
data$määrä <- ifelse(test, 0, data$määrä)
colnames(data)[c(2,4)] <- c("hlö-kk", "summa")
colnames(data)[c(2,4)] <- c("hlö-kk", "summa")
#print(xtable(data), type = 'html')
print(xtable(data), type = 'html')
palkat <- sum(data[data[, "hlö-kk"] != 0, "summa"])
test <- "Palkka" == substr(data$Kustannuslaji, 1, 6)
out <- data.frame(Kustannuslaji = c("Palkat", "Sivukulut"), summa = c(palkat, palkat*SK))
data$Kustannuslaji <- ifelse(test, "Palkka", data$Kustannuslaji)
#print(xtable(out), type = 'html')
palkat <- sum(data[test, "summa"])
test <- "Palkka" != substr(data$Kustannuslaji, 1, 6)
out <- data.frame(Kustannuslaji = c("Sivukulut", "Yleiskustannus"), summa = c(palkat*SK, palkat*(1+SK)*YK))
#test
out <- rbind(data[, c("Kustannuslaji", "summa")], out)
out <- rbind(out, data[test, c("Kustannuslaji", "summa")])
print(xtable(out), type = 'html')
out <- rbind(out, data.frame(Kustannuslaji = "Yleiskustannus", summa = sum(out$summa[1:2])*YK))
out <- as.data.frame(as.table(tapply(out$summa, out$Kustannuslaji, sum)))
print(xtable(out), type = 'html')
out$summa <- ifelse(out$Kustannuslaji =="Tulot", out$Kustannuslaji, -out$Kustannuslaji)
out <- rbind(out, data.frame(Kustannuslaji = "Yhteensä", summa = sum(out$summa)))
out <- rbind(out, data.frame(Kustannuslaji = "Yhteensä", summa = sum(out$summa)))
print(xtable(out), type = 'html')
print(xtable(out), type = 'html')
#return(list(out1, out2, out3, out4))
}
}
</rcode>
</rcode>

Versio 17. lokakuuta 2011 kello 16.16




Projektinhallinta sisältää menetelmiä tutkimushankkeiden ja muiden projektien suunnitteluun, seurantaan ja hallintaan. Aikakone sisältää työajanhallintaan liittyviä osia. Tällä sivulla on menetelmiä talouden hallintaan.

Budjetin laskenta

+ Näytä koodi

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

Voit testata budjettia tällä tilapäisellä lisätapahtumalla.

kustannuslaji:

määrä:

kuvaus:

+ Näytä koodi