Keko-laskuri

Tämä sivu on ensyklopedia-artikkeli. Sivutunniste: Op_fi5847
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi5847}}

Keko-laskuri on kaupunkien ja kuntien alueellisten ilmastopäästöjen laskemiseen Suomen ympäristökeskuksen, Aalto-yliopiston ja VTT:n yhteistyönä kehittämä laskentamalli. Sen kuvaus ja koodi on saatavissa osoitteesta http://www.ymparisto.fi/keko. Laskurin on koodannut Maija Mattinen-Yuryev vuonna 2015.

Keko-laskurin näkemysverkko. Mallissa käytetyt lähtödatat on merkitty valkoisilla ympyröillä ja funktiot sinisillä ympyröillä. Nuolet kertovat, mitä tietoja funktiot käyttävät.

Laskenta

arg8466: . Tähän pitäisi lisätä koodi, joka noukkii funktion viimeiseltä return-riviltä tuotettujen olioiden nimet. --Jouni Tuomisto (keskustelu) 21. elokuuta 2018 kello 06.11 (UTC) (type: ; paradigms: science: relevant defense)

+ Näytä koodi- Piilota koodi ## Code for KEKO analysis cod <- readLines("KEKO_code_all.txt", encoding = "UTF-8") funs <- grep("^def ", cod) # First row of function tmp <- funs # Last row of input parameters for(i in 1:10) { tmp <- ifelse(grepl(":",cod[tmp]),tmp, tmp+1) } tmp2 <- sapply(1:length(funs), FUN=function(i) paste0(cod[funs[i]:tmp[i]],collapse="")) tmp2 <- gsub("):$","",gsub("^def ","",tmp2)) tmp2 <- data.frame( Oldid=paste0("Keko.",1:length(funs)), type = "substance", t(as.data.frame(strsplit(tmp2,"\\("))), Relation = "affects", Description = cod[tmp+1], URL="http://www.ymparisto.fi/fi-FI/KEKO__Kaavoituksen_ekolaskuri", stringsAsFactors = FALSE ) colnames(tmp2)[3:4] <- c("Item","Object") #tmp2 <- orbind( # Problematic because created duplicate nodes # tmp2, # data.frame( # Item = tmp2$Object, # type = "data", # stringsAsFactors = FALSE # ) #) tmp2$label <- tmp2$Item tmp2 <- splizzeria(tmp2, "Object", ",") tmp2 <- ecd_create(tmp2) gr2 <- create_graph( nodes_df = tmp2$nodes_df, edges_df = tmp2$edges_df ) render_graph(gr2) export_graph(gr2, "Keko-laskurin näkemysverkko.svg")