Ero sivun ”Projektinhallinta” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
pEi muokkausyhteenvetoa |
||
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 25: | Rivi 25: | ||
cat("Yleiskustannuskerroin:", YK, "Sivukulukerroin", SK, "\n") | cat("Yleiskustannuskerroin:", YK, "Sivukulukerroin", SK, "\n") | ||
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 == laitos & palkka$Vuosi == vuosi, -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') | ||
data <- merge(data, palkka, all.x=TRUE) | data <- merge(data, palkka, all.x=TRUE) | ||
#print(xtable(data), type = 'html') | #print(xtable(data), type = 'html') | ||
test <- "Palkka" == substr(data$Kustannuslaji, 1, 6) | test <- "Palkka" == substr(paste(data$Kustannuslaji, " "), 1, 6) | ||
data$Result <- ifelse(test, data$Result * data$määrä, data$määrä) | data$Result <- ifelse(test, data$Result * data$määrä, data$määrä) | ||
data$määrä <- ifelse(test, data$määrä, 0) | data$määrä <- ifelse(test, data$määrä, 0) | ||
colnames(data)[c(2,4)] <- c("hlö-kk", "summa") | colnames(data)[c(2,4)] <- c("hlö-kk", "summa") | ||
data | #data | ||
print(xtable(data), type = 'html') | |||
data$Kustannuslaji <- ifelse(test, "Palkka", as.character(data$Kustannuslaji)) | data$Kustannuslaji <- ifelse(test, "Palkka", as.character(data$Kustannuslaji)) | ||
palkat <- sum(data[test, "summa"]) | palkat <- sum(data[test, "summa"]) | ||
out <- data.frame(Kustannuslaji = c("Sivukulut", "Yleiskustannus"), summa = c(palkat*SK, palkat*(1+SK)*YK)) | out <- data.frame(Kustannuslaji = c("Sivukulut", "Yleiskustannus"), summa = c(palkat*SK, palkat*(1+SK)*YK)) | ||
out <- rbind(data[, c("Kustannuslaji", "summa")], out) | out <- rbind(data[, c("Kustannuslaji", "summa")], out) | ||
out | #out | ||
print(xtable(out), type = 'html') | |||
out <- as.data.frame(as.table(tapply(out$summa, out$Kustannuslaji, sum))) | out <- as.data.frame(as.table(tapply(out$summa, out$Kustannuslaji, sum))) | ||
colnames(out) <- c("Kustannuslaji", "summa") | colnames(out) <- c("Kustannuslaji", "summa") | ||
out | #out | ||
print(xtable(out), type = 'html') | |||
out$summa <- ifelse(out$Kustannuslaji =="Tulot", out$Kustannuslaji, -out$Kustannuslaji) | 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))) | ||
out | #out | ||
print(xtable(out), type = 'html') | |||
} | } | ||
</rcode> | </rcode> |
Versio 17. lokakuuta 2011 kello 16.49
Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
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
Tällä käyttöliittymällä ohjataan budjettilaskentaa: