Projektinhallinta

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2706
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2706}} Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

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- Piilota koodi library(OpasnetBaseUtils) library(xtable) ####Budjettilaskenta: suunnitelluista palkka- ja muista menoista lasketaan kokonaisbudjetti. Toistaiseksi käsitellään vain menoja, tuloja ei ole sisällytetty. budjettilaskenta <- function(page, laitos = "THL", vuosi = "2011") { data <- op_baseGetData("opasnet_base", page)[, -c(1,2)] data <- reshape(data, idvar = "obs.1", timevar = "Havainto", direction = "wide")[, -c(1,4,5,6)] colnames(data) <- c("Kustannuslaji", "määrä", "kuvaus") #print(xtable(data), type='html') temp <- data.frame(Kustannuslaji = kustannuslaji, määrä = määrä, kuvaus = kuvaus) data <- rbind(data, temp) #print(xtable(data), type='html') kertoimet <- op_baseGetData("opasnet_base", "Op_fi2704") kertoimet <- kertoimet[kertoimet$Laitos == "THL" & kertoimet$Vuosi == "2011" & kertoimet$Rahoittaja == "STM", ] #kertoimet YK <- kertoimet[kertoimet$Kerroin == "Yleiskustannus", "Result"] SK <- kertoimet[kertoimet$Kerroin == "Palkan sivukulu", "Result"] cat("Yleiskustannuskerroin:", YK, "Sivukulukerroin", SK, "\n") palkka <- op_baseGetData("opasnet_base", "Op_fi2705")[, -c(1,2,7)] #print(xtable(palkka), type = 'html') palkka <- palkka[palkka$Laitos == laitos & palkka$Vuosi == vuosi, -c(1,3)] colnames(palkka)[1] <- "Kustannuslaji" #print(xtable(palkka), type = 'html') data <- merge(data, palkka, all.x=TRUE) print(xtable(data), type = 'html') test <- "Palkka" == substr(paste(data$Kustannuslaji, " "), 1, 6) test data$Result <- ifelse(test, data$Result * data$määrä, data$määrä) print(xtable(data), type = 'html') data$määrä <- ifelse(test, data$määrä, 0) print(xtable(data), type = 'html') colnames(data)[c(2,4)] <- c("hlö-kk", "summa") #data print(xtable(data), type = 'html') data$Kustannuslaji <- ifelse(test, "Palkka", as.character(data$Kustannuslaji)) palkat <- sum(data[test, "summa"]) out <- data.frame(Kustannuslaji = c("Sivukulut", "Yleiskustannus"), summa = c(palkat*SK, palkat*(1+SK)*YK)) out <- rbind(data[, c("Kustannuslaji", "summa")], out) #out print(xtable(out), type = 'html') out <- as.data.frame(as.table(tapply(out$summa, out$Kustannuslaji, sum))) colnames(out) <- c("Kustannuslaji", "summa") #out 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 print(xtable(out), type = 'html') }

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

Voit testata budjettia tällä tilapäisellä lisätapahtumalla. kustannuslaji: Palkka VT6 Palkka VT7 Palkka VT8 Ostopalvelu Matka Tarvike määrä: kuvaus: + Näytä koodi- Piilota koodi budjettilaskenta("Tähän tapahtumatiedot sisältävän sivun tunniste")