Energiarenessanssi

Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi5642
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi5642}}

Energiarenessanssi on Helsingin kaupungin toimenpideohjelma, jolla pyritään edistämään rakenusten (erityisesti muiden kuin Helsingin kaupungin omassa omistuksessa olevien) energiaparannuksia muiden korjausten yhteydessä.

Rajaus

Kysymys

Millaisia toimenpiteitä Helsingin kaupungissa pitäisi tehdä (mukaanlukien mutta ei rajautuen Hiilineutraali Helsinki 2035 -toimenpideohjelman toimenpiteisiin), jotta kaupungin rakennuskanta saataisiin mahdollisimman energiatehokkaaksi nopeasti?
Miten toimenpiteiden toteutumista ja vaikutuksia seurataan osana toimenpideohjelmaa?

Oletettu käyttö ja käyttäjät

Helsingin kaupunki käyttää tietoja tehdäkseen toiminnastaan sisäisesti johdonmukaista, jotta toimenpiteet eivät estäisi toisten toimenpiteiden toteuttamista tai niiden tavoitteiden saavuttamista.

Osallistujat

Jouni Tuomisto THL, arvioinnin vetäjä
Helsingin kaupungin ympäristökeskus, ongelmanomistaja. (Jari Viinanen, Petteri Huuska, Mira Jarkko, Sonja-Maria Ignatius)

Rajaus

Tarkasteltavana ovat lämmityksen ilmastopäästöt ja kustannukset vuoteen 2035 asti.

Vaihtoehdot

Tarkasteluun otetaan HNH2035-ohjelman neljä toimenpidettä.

Aikataulu ja toteutus

Työ on osa HNH2035-ohjelman toimeenpanoa ja toimii kokeiluna ohjelman laajemmalle toteutukselle.

Vastaus

Tulokset

Ei ole vielä tuloksia.

Päätelmät

Ei ole vielä päätelmiä.

Perustelut

Riippuvuudet

Parametreja(useita)
Obs	Konteksti	Kohde	Mittari	Aika	Skenaario	Unit	Tulos	Kuvaus	Perustelut
1					BAU
2					HNH2035
3					toteuma
4					varaus
5	lämpö	rakennuksen omistaja	lämmityskorjausten marginaalikustannus	1990		€/kWh/a	0.02	korjausrakentamisen yksikkökustannus säästettyä lämpöenergiaa kohti olettaen 25 a investointien pitoajaksi	HNH-arvion mukaan hyöty on 0.5 €/kWh 25 vuoden ajan, jolloin hyöty on 0.02 €/kWh/a
6	paikallissähkö	Helsingin kaupunkiorganisaatio	sähköinvestointien ominaiskustannus	1990		€/Wp	1	aurinkosähköjärjestelmän investoinnin yksikkökustannus käyttöiän eli 25 a ajalta
7	paikallissähkö	Helsingin kaupunkiorganisaatio	sähkön ominaistuotanto	1990		kWh/Wp/a	0.9	aurinkosähköjärjestelmän vuosittainen yksikkötuotanto
8	paikallissähkö	Helsingin kaupunkiorganisaatio	sähkön ylläpidon ominaiskustannus	1990		€/MWh	4.9	kunnossapidon yksikkökustannus energiantuotantoa kohti
9		sähkön tuottaja	sähkön ominaistuotto	1990		€/kWh	0.17

Malliriippuvuudet(-)
Obs	Name	Ident	label	type
1	renovationIncrCost	Op_fi5642/heat	lämmityskorjausten marginaalikustannus
2	powerSpecInvestCost	Op_fi5642/power	sähköinvestointien ominaiskustannus
3	powerSpecProd	Op_fi5642/power	sähkön ominaistuotanto
4	powerSpecMaintCost	Op_fi5642/power	sähkön ylläpidon ominaiskustannus
5	powerCapac	Op_fi5642/master	sähkötehopotentiaali
6	powerProd	Op_fi5642/impacts	sähköntuotanto
7	powerCost	Op_fi5642/impacts	sähkökustannus
8	timeLimits	Op_fi5642/timeLimits	aikarajat	indeksi
9	powerSpecIncome	Op_fi5642/power	sähkön ominaistuotto
10	powerIncome	Op_fi5642/impacts	sähkötuotto
11	profit	Op_fi5642/impacts	voitto

Laskenta

Näin lasket energiarenessanssin vaikutukset:

Päivitä seurantatiedot Google-taulukkoon
Kerää ja varastoi masterdata koodilla sivulla Hiilineutraali Helsinki 2035#Kerää_ja_varastoi_masterdata
Aja alla oleva koodi nimeltään "Aja malli"
Jos laskentaa pitää päivittää, se todennäköisesti pitää tehdä Aja malli -koodin jälkeen tuleviin koodeihin, koska siinä on laskennan ydin.

Olioiden nimeäminen tehdään camelCasea käyttäen siten, että ensimmäinen sana kertoo aiheena olevan ilmiön, ja sen jälkeen annetaan tarkentavia määreitä sille, mikä tämä nimenomainen ovariable on. Näitä määreitä käytetään:

Incr: incremental eli marginaali- (kuvaa skenaarioiden välistä eroa eikä kokonaisvaikutusta)
Spec: specific eli ominais- (kuvaa ominaisuutta volyymin suhteen eli esim. €/ton)
Tot: total eli kokonais- (kuvaa ominaisuuden koko määrää eli esim. kokonaiskustannus €)
Capac: capacity eli kapasiteetti (kuvaa toiminnan käytettävissä olevaa määrää)
Maint: maintenance eli ylläpito- (kuvaa jatkuvaa kustannusta tms. per vuosi)
Invest: investment eli hankinta- (kuvaa kertaluontoista investoinnin kustannusta tms. hankkeen elinkaaren aikana)
Cost: cost eli kustannus
Prod: production eli tuotanto
Cons: consumption eli kulutus
er: energy renaissance eli energiarenessanssi (a subproject of hnh)
hnh: Climate Neutral Helsinki 2035 eli hiilinautraali Helsinki 2035 -ohjelma
Master: masterdata seurantatiedoista
Param: parameters eli parametrit (pysyvät, ei-tapauskohtaiset muuttujat)

Energiarenessanssimallin malliajot:

Ajo 20.10.2018 sisältäen ensimmäisiä lämmönkulutuksen ja paikallissähkön tietoja [1]

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/ on page [[Energiarenessanssi]]
library(OpasnetUtils)
library(ggplot2)

objects.latest("Op_fi5642", code_name="impacts")

profit <- EvalOutput(profit)
heatGhgEmis<-EvalOutput(heatGhgEmis)
heatCost <- EvalOutput(heatCost)
BS <- 24

tmp <- oapply(profit, cols="Iter", FUN=mean)@output
tmp$Time <- as.numeric(as.character(tmp$Time))
ggplot(tmp, aes(x=Time, y=profitResult, colour=Skenaario))+geom_line()+
  theme_gray(base_size=BS)+
  labs(
    title="Paikallissähkön tuotannosta syntyvä voitto",
    y = "Voitto (Meur/a)"
  )

tmp <- oapply(powerProd, cols="Iter", FUN=mean)@output
tmp$Time <- as.numeric(as.character(tmp$Time))
ggplot(tmp, aes(x=Time, y=powerProdResult, colour=Skenaario))+geom_line()+
  theme_gray(base_size=BS)+
  labs(
    title="Paikallissähkön tuotanto",
    y="Tuotanto (GWh/a)"
  )

tmp <- oapply(heatCost, cols="Iter", FUN=mean)@output
tmp$Time <- as.numeric(as.character(tmp$Time))
ggplot(tmp, aes(x=Time, y=heatCostResult, colour=Skenaario))+geom_line()+
  theme_gray(base_size=BS)+
  labs(
    title="Rakennuskannan korjaus- ja investointikustannukset",
    y="Kustannukset (Meur/a)"
  )

tmp <- oapply(heatGhgEmis, cols="Iter", FUN=mean)@output
tmp$Time <- as.numeric(as.character(tmp$Time))
ggplot(tmp, aes(x=Time, y=heatGhgEmisResult, colour=Skenaario))+geom_line()+
  theme_gray(base_size=BS)+
  labs(
    title="Lämmityksen ilmastopäästö",
    y="Ilmastopäästö (kton/a)"
  )

ggplot(tmp, aes(x=Time, y=cumsum(heatGhgEmisResult), colour=Skenaario))+geom_line()+
  theme_gray(base_size=BS)+
  labs(
    title="Lämmityksen kumulatiivinen ilmastopäästö",
    y="Ilmastopäästö (kton)"
  )

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/timing on page [[Energiarenessanssi]]
library(OpasnetUtils)

#' timing fills empty Result cells with the previous value along Time index, or default if not available.
#' @param ova an ovariable with index Time. If Time does not exist, returns the ovariable
#' @param timeline numeric vector, typically calendar years
#' @default value of Result if previous or current Results are not available

timing <- function(ova, timeline, default=0) {
  if(!"Time" %in% colnames(ova@output)) return(ova)
  rescol <- paste0(ova@name, "Result")
  margcol <- setdiff(colnames(ova@output)[ova@marginal],"Time")
  out <- data.frame()
  tmp <- unique(ova@output[margcol])
  tmp$prev <- default
  for(i in timeline) {
    tmp <- merge(tmp, ova@output[ova$Time==i,c(margcol,rescol)], by=margcol, all.x=TRUE)
    tmp$best <- ifelse(!is.na(tmp[[rescol]]), tmp[[rescol]], tmp$prev)
    tmp$prev <- ifelse(is.na(tmp[[rescol]]),tmp$prev,tmp[[rescol]])
    tmp[[rescol]] <- NULL
    out <- rbind(out, cbind(Time=i, tmp))
  }
  out$prev <- NULL
  colnames(out)[colnames(out)=="best"] <- rescol
  ova@output <- out
  return(ova)
}

objects.store(timing)
cat("Function timing stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/heat on page [[Energiarenessanssi]]
library(OpasnetUtils)

erParam <- Ovariable(
  "erParam",
  dependencies = data.frame(
    Name=c("timing","timeline"),
    Ident=c("Op_fi5642/timing","Op_fi5642/timeline")
  ),
  formula = function(...) {
    tmp <- EvalOutput(Ovariable("tmp", ddata = "Op_fi5642", subset="Parametreja"))
    colnames(tmp@output)[colnames(tmp@output)=="Aika"] <- "Time"
    tmp$tmpSource <- NULL
    tmp$Määre <- NULL
    tmp$Konteksti <- NULL # Remove until a standardised way to use it has been developed
    tmp$Kohde <- NULL # Remove until a standardised way to use it has been developed
    levels(tmp$Skenaario)[levels(tmp$Skenaario)==""] <- NA
    tmp@output <- fillna(tmp@output, "Skenaario")
    return(timing(tmp, timeline))
  }
)

objects.store(erParam)
cat("Ovariable erParam stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/heat on page [[Energiarenessanssi]]

library(OpasnetUtils)

renovationIncrCost <- Ovariable(
  "renovationIncrCost",
  dependencies = data.frame(Name="erParam", Ident="Op_fi5642/erParam"),
  formula = function(...) {
    return(erParam[erParam$Mittari == "lämmityskorjausten marginaalikustannus", colnames(erParam@output) != "Mittari"])
  }
)

heatCost <- Ovariable(
  "heatCost",
  dependencies = data.frame(Name="hnhMaster",Ident="Op_fi5642/hnhMaster"),
  formula = function(...) {
    return(hnhMaster[hnhMaster$Mittari=="kustannus" , colnames(hnhMaster@output!="Mittari")])
  }
)

heatGhgEmis <- Ovariable(
  "heatGhgEmis",
  dependencies = data.frame(Name="hnhMaster",Ident="Op_fi5642/hnhMaster"),
  formula = function(...) {
    return(hnhMaster[hnhMaster$Mittari=="ilmastopäästö" , colnames(hnhMaster@output!="Mittari")])
  }
)

objects.store(list=setdiff(ls(), "wiki_username"))
cat("Ovariables", paste(setdiff(ls(), "wiki_username"), collapse=", "), "stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/power on page [[Energiarenessanssi]]
  
library(OpasnetUtils)

powerSpecInvestCost <- Ovariable(
  "powerSpecCost",
  dependencies = data.frame(Name="erParam", Ident="Op_fi5642/erParam"),
  formula = function(...) {
    return(erParam[erParam$Mittari == "sähköinvestointien ominaiskustannus", colnames(erParam@output) != "Mittari"])
  }
)

powerSpecProd <- Ovariable(
  "powerSpecProd",
  dependencies = data.frame(Name="erParam", Ident="Op_fi5642/erParam"),
  formula = function(...) {
    return(erParam[erParam$Mittari == "sähkön ominaistuotanto", colnames(erParam@output) != "Mittari"])
  }
)

powerSpecMaintCost <- Ovariable(
  "powerSpecMaintCost",
  dependencies = data.frame(Name="erParam", Ident="Op_fi5642/erParam"),
  formula = function(...) {
    return(erParam[erParam$Mittari == "sähkön ylläpidon ominaiskustannus", colnames(erParam@output) != "Mittari"])
  }
)

powerSpecIncome <- Ovariable(
  "powerSpecIncome",
  dependencies = data.frame(Name="erParam", Ident="Op_fi5642/erParam"),
  formula = function(...) {
    return(erParam[erParam$Mittari == "sähkön ominaistuotto", colnames(erParam@output) != "Mittari"])
  }
)

objects.store(list=setdiff(ls(), "wiki_username"))
cat("Ovariables", paste(setdiff(ls(), "wiki_username"), collapse=", "), "stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/hnhMaster on page [[Energiarenessanssi]]
  
library(OpasnetUtils)

hnhMaster <- Ovariable(
  "hnhMaster",
  dependencies = data.frame(
    Name = c("timing","timeline"),
    Ident = c("Op_fi5642/timing","Op_fi5642/timeline")
  ),
  formula = function(...) {
    tmp <- EvalOutput(Ovariable("tmp",ddata="Op_fi5767", subset = "Masterdata"))
    colnames(tmp@output)[colnames(tmp@output)=="Aika"] <- "Time"
    tmp$tmpSource <- NULL
    tmp$Kuvaus <- NULL 
    tmp$Perustelu <- NULL 
    tmp$Leima <- NULL
    tmp$Määre <- NULL # Remove until a standardised way to use it has been developed
    tmp$Oldid <- NULL # Remove until a standardised way to use it has been developed
    tmp$Konteksti <- NULL # Remove until a standardised way to use it has been developed
    tmp$Kohde <- NULL # Remove until a standardised way to use it has been developed
    tmp@output <- fillna(tmp@output, "Skenaario")
    tmp <- timing(tmp, timeline)
    return(tmp)
  }
)

powerCapac <- Ovariable(
  "powerCapac",
  dependencies = data.frame(Name="hnhMaster", Ident="Op_fi5642/hnhMaster"),
  formula = function(...) {
    return(hnhMaster[hnhMaster$Mittari == "sähkötehopotentiaali" , colnames(hnhMaster@output) != "Mittari"])
  }
)

objects.store(hnhMaster, powerCapac)
cat("Ovariables hnhMaster, powerCapac stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/impacts on page [[Energiarenessanssi]]

library(OpasnetUtils)

powerProd <- Ovariable(
  "powerProd",
  dependencies = data.frame(
    Name = c("powerSpecProd","powerCapac"),
    Ident = c("Op_fi5642/power","Op_fi5642/hnhMaster")
  ),
  formula = function(...) {
    out <- powerSpecProd * powerCapac
    return(out)
  }
)

powerCost <- Ovariable(
  "powerCost",
  dependencies = data.frame(
    Name = c("powerSpecProd","powerCapac","powerSpecInvestCost","powerSpecMaintCost"),
    Ident = c("Op_fi5642/power","Op_fi5642/hnhMaster","Op_fi5642/power","Op_fi5642/power")
  ),
  formula = function(...) {
    out <- powerSpecInvestCost * powerCapac + powerSpecMaintCost * powerProd / 1000 # €/MWh --> M€/GWh
    return(out) # powerSpecMaintCost has to be first converted to annual values assuming that it stays constant until a new value is given.
  }
)

powerIncome <- Ovariable(
  "powerIncome",
  dependencies = data.frame(
    Name=c("powerProd","powerSpecIncome"),
    Ident=c(NA,"Op_fi5642/power")
  ),
  formula = function(...) {
    out <- powerProd * powerSpecIncome
    
    return(out)
  }
)

profit <- Ovariable( # This contains all sources of income and cost by stakeholder
  "profit",
  dependencies = data.frame(
    Name=c("powerCost","powerIncome"),
    Ident=c(NA,"Op_fi5642/power")
  ),
  formula = function(...) {
    out <- powerIncome - powerCost
    
    return(out)
  }
)

objects.store(powerProd, powerCost, powerIncome, profit)
cat("Ovariables powerProd, powerCost, powerIncome, profit stored.\n")

+ Näytä koodi - Piilota koodi

# This is code Op_fi5642/timeline on page [[Energiarenessanssi]]
library(OpasnetUtils)

timeline <- 1990:2035 # This is used to cut an observation period from the timeline.

objects.store(timeline)
cat("Data.frame timeline stored.\n")

Jaetun ymmärryksen kuvaus

Keskustelua jaetusta ymmärryksestä

On hyödyllistä, että ei tavoitella kohsensusta vaan kuvataan myös ristiriidat. Se auttaa ymmärtämään tilannetta.
Iso päätös tarvitsee tuekseen paljon sitä tukevia pieniä päätöksiä. Mikä laukaisee prosessin, jolla iso päätös saadaan aikaan? Miten tehdään politiikkaa, jolla estetään pieniä päätöksiä olemasta ison päätöksen vastaisia? Tukevatko pienet päätökset isoa päätöstä, esim. mitkä normit rajoittavat tiivistä kaupunkia?
Miten monimutkaisen asian osat liittyvät toisiinsa? Miten kuvataan tällainen järjestelmä siin, että tietokone voi ylläpitää kuvausta järjestelmästä ja tuottaa sieltä hyödyllisiä näkymiä käyttäjälle (esimerkiksi nostaa esiin johonkin yksityiskohtaan liittyviä asioita vaikka käyttäjä ei tiedä niiden liittyvän siihen)?

Tietoa jaettuun ymmärrykseen lähdettiin hakemaan useasta eri lähteestä. Alla olevista lähteistä on tarkoitus koota suoraan tai välivaiheiden kautta yksi yhteinen energia- ja ilmastokuvaus jaetun ymmärryksen menetelmän mukaisena rdf-taulukkona, jota voidaan pilkkoa ja kuvata automaattisesti kaaviona. Joistakin taulukoiden riveistä tulee useita rivejä yhteiseen taulukkoon. Energiarenessanssin asioiden varhaisempi tietomuoto ja koodi jolla se muutettiin löytyy täältä.

Tiedosto:Energiajailmastotekstit.txt

Suorasanaista tekstiä valmiista toimenpide-ehdotuksista osittain rakenteisena
- Toimepide-ehdotukset: kuvaus, puolesta, vastaan
- Kommentit: timestamp, kommentti
Suorasanaista tekstiä yleisön esittämistä toimenpide-ehdotuksista
- Kommentit: timestamp, kommentti
Nettikyselyn päätösehdotukset on t2b sivulla Keskipitkän aikavälin ilmastopolitiikan suunnitelma
- Sarakkeet: Obs, Aihe, Toimi, Vaikutus (tämä sarake on tyhjä)
- Kytkeytyvät nettikyselyn toimenpide-ehdotuksiin annetussa järjestyksessä
Kyselyn kommenttien tiedot on t2b sivulla Keskipitkän aikavälin ilmastopolitiikan suunnitelma
- Sarakkeet: Obs, Row, Name, Type, Note (onko kiistelty vai ei)
Koodi Op_en5339/preprocessing on page Keskipitkän aikavälin ilmastopolitiikan suunnitelma tuottaa data.framet
Tuote: ejikysely ja ejikomm

ejikysely

data.frame tuotettu koodilla Op_en5339/preprocessing
Sisältää ehdotetut toimenpidevaihtoehdot ja niiden yleisöäänestystuloksen
Sarakkeet: row.names, Aihe, Toimi (lyhyt nimi), Vaikutus (tyhjä sarake), Kannatus, Puolesta, Vastaan, Ehdotus (pitkä kuvaus)
Tuotteen sarakkeet:
- Subjekti: Toimi; Relaatio: "tägi"; Objekti: "päätös"; Tarkenne: ""; Kuvaus: paste(Ehdotus, "Kannatus:", Puolesta, ",", Vastaan, sep = "")
- Subjekti: Toimi; Relaatio: "vaikuttaa"; Objekti: Aihe, Tarkenne: ""; Kuvaus: "".

ejikomm

data.frame tuotettu koodilla Op_en5339/preprocessing
Sisältää kansalaisten kommentit toimenpide-ehdotuksiin (ei kansalaisten omia toimenpide-ehdotuksia)
Sarakkeet: Row, Time, Comment (pitkä kuvaus), Topic (lyhyt kuvaus tai aihe), Name (lyhyt nimi), Type (oliotyyppi), Note (onko kiistelty)
Tuotteen sarakkeet:
- Subjekti: Name; Relaatio: "tägi"; Objekti: Type; Tarkenne: ""; Kuvaus: Comment
- Subjekti: Topic; Relaatio: "tekee relevantiksi"; Objekti: Name; Tarkenne: ""; Kuvaus: ""

Terveys- ja ilmastokeskustelu

Osittain jäsennettyä suorasanaista tekstiä palaverista sivulla Keskustelu:Keskipitkän aikavälin ilmastopolitiikan suunnitelma
Siitä tuotettu t2b Terveys- ja ilmastokeskustelu sivulle Keskipitkän aikavälin ilmastopolitiikan suunnitelma.
Käsittelee energia- ja ilmastoasioita laajasti
Oliotyypit: arviointi, muuttuja, metodi
Tuote: kuvaaja Tiedosto:Jaettu ymmärrys liikenteestä energia- ja ilmastostrategiassa.png. Lisäksi t2b, jossa jaetun ymmärryksen mukaiset sarakkeet.

Robottiautot ja matkojenyhdistely

t2b sivulla Keskipitkän aikavälin ilmastopolitiikan suunnitelma#Robottiautot ja matkojenyhdistely
Sarakkeet: Obs, Subjekti, Predikaatti, Objekti, Tarkenne, Kuvaus
Tuotteen sarakkeet käyvät jaettuun ymmärrykseen sellaisenaan, Obsia ei tarvita.

Ohjelmatason tavoitteenmäärittelyt ⇤--#: . Ei tarvita ainakaan vielä. Tavoitehierarkia pitää miettiä uudestaan, jos siihentyöhn lähdetään. --Jouni Tuomisto (keskustelu) 28. marraskuuta 2016 kello 20.34 (UTC) (type: truth; paradigms: science: attack)

prettytable sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Ohjelmatason tavoitteet
Sarakkeet: Nro, Aineisto (käytetty aineisto), Sivunumero (aineiston sivu), Osa-alue (aihealue), Tavoite (ilmastopoliittinen tavoite), Relaatio (käytännössä "tukee"), Strategiatason tavoite (ylätason tavoite)
Tuotteen sarakkeet:
- Subjekti: Tavoite; Relaatio: "tukee"; Objekti: Strategiatason tavoite; Tarkenne: [viite;paste(Aineisto, Sivunumero;;]; Kuvaus: ""
- Subjekti: Osa-alue; Relaatio: "tekee relevantiksi"; Objekti: Tavoite; Tarkenne:"", Kuvaus:""
- Subjekti: Tavoite; Relaatio: "tägi"; Objekti: "tavoite"; Tarkenne: "", Kuvaus: ""

Ilmastopäästöt ⇤--#: . Ei oteta käyttöön vielä. --Jouni Tuomisto (keskustelu) 29. marraskuuta 2016 kello 10.36 (UTC) (type: truth; paradigms: science: attack)

t2b sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Tarkasteltavat vaikutukset
Sarakkeet: Obs, Vaikutus (nimi toiminnan ilmastopäästölle; muuttujatyypin olio), Yksikkö (mittayksikkö), Luku (Result), Kuvaus
Tuotteen sarakkeet:
- Subjekti: Vaikutus; Relaatio: "ovariablen vastaus"; Objekti: Luku; Tarkenne: ["yksikkö"; Yksikkö;; ./ "viite";"VIITE PUUTTUU";;]; Kuvaus: Kuvaus

Kustannukset ⇤--#: . EI oteta käyttöön vielä. --Jouni Tuomisto (keskustelu) 29. marraskuuta 2016 kello 10.36 (UTC) (type: truth; paradigms: science: attack)

t2b sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Eräiden toimenpiteiden kustannustehokkuus
Sarakkeet: Obs, Toimenpide (nimi toimepiteelle, päätöstyypin olio), Kustannukset (M€/a), Päästövähenemä (ktonCO2), Nro (Viittaa Obs-sarakkeeseen taulukossa Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet)
Tuotteen sarakkeet:
- Subjekti: Toimepide; Relaatio: ⇤--#: . Epäselvää, miten kannattaisi toteuttaa. --Jouni Tuomisto (keskustelu) 27. marraskuuta 2016 kello 15.42 (UTC) (type: truth; paradigms: science: attack)

Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet

t2b sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Ohjelmatason toimenpiteet
Obs, Aineisto (käytetty aineisto), Sivunumero (aineiston sivunumero), Osa-alue (Aihe), Toimenpide (nimi toimenpiteelle, päätöstyypin olio), Relaatio (yleensä "tukee"), Strategiatason tavoite (ylätason tavoite tai tavoitteet johon liittyy), Toimija (kuka voi päättää asiasta), Vaikutus (Aihealueet joihin vaikuttaa)
Tuotteen sarakkeet:
- Subjekti: Toimenpide; Relaatio: "tukee"; Objekti: Strategiatason tavoite; Tarkenne: ["viite";paste(Aineisto, Sivunumero);;];Kuvaus:""
- Subjekti: Toimenpide; Relaatio: "toimija"; Objekti: Toimija; Tarkenne: "", Kuvaus: ""
- Subjekti: Toimenpide; Relaatio: "tägi"; Objekti: "päätös";;
- Subjekti: Toimenpide; Relaatio: "kuuluu joukkoon"; Objekti: Vaikutus ⇤--#: . Onko tämä oikea relaatio, vai pikemmin "tekee relevantiksi" (subjekti ja objekti toisin päin)? --Jouni Tuomisto (keskustelu) 27. marraskuuta 2016 kello 15.42 (UTC) (type: truth; paradigms: science: attack)

Tavoitteet

t2b sivulla Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet#Vastaus
Sarakkeet Obs, Aineisto (käytetty aineisto), Sivunumero (aineiston sivu), Jaenumero (mistä tulevat jakeet?); Osa-alue (aihe), Tavoite (lyhyt nimi), Kuvaus (pitkä kuvaus)
Tuotteen sarakkeet:
- Subjekti: Tavoite; Relaatio: "kuuluu joukkoon"; Objekti: Osa-alue; Tarkenne: ["viite";paste(Aineisto, Sivunumero);; ./ "jae";Jaenumero;;]; Kuvaus: ""
- Subjekti: Tavoite; Relaatio: "tägi"; Objekti: "tavoite"; Tarkenne: "", Kuvaus: Kuvaus

Energiarenessanssin asioita

t2b sivulta Energiarenessanssi#Jaetun ymmärryksen kuvaus
Sisältää muuttujia kuvasta Helsinki energy decision 2015 [2]
Sarakkeet sopivat suoraan jaetun ymmärryksen kuvaukseen.

Näytä yksityiskohdat

Energiarenessanssin asioita(-)
Obs	Subjekti	Predikaatti	Objekti	Tarkenne	Kuvaus
1	Rakennuskanta nyt	tägi	muuttuja		Rakennuskannan suuruus rakennustyypeittäin neliömetreinä nyt (perustuen tilastoihin)
2	Rakennuskannan suuruus	tägi	muuttuja		Rakennuskannan suuruus neliömetreinä eri vuosina (myös tulevaisuuden ennuste)
3	Korjausrakentaminen	tägi	muuttuja		Korjausrakentamisen määrä %/a rakennustyypeittäin
4	Korjausrakentamisen tyyppi	tägi	muuttuja		Korjausrakentamisen tyyppi (kuinka laaja remontti ja kuinka suuret energiavaikutukset) silloini kun remontti tehdään (%-osuus remonteista)
5	Uudisrakentaminen ja purkaminen	tägi	muuttuja		Uudisrakentamisen ja purkamisen määrä rakennustyypeittäin ja vuosittain (rakennus-m2/a)
6	Lämmitysmuoto ja energiatehokkuus	tägi	muuttuja		Eri lämmitysmuodon ja energiatehokkuuden jakaumat erityyppisissä ja -ikäisissä rakennuksissa (%-osuus rakennuskannasta)
7	Lämmön ominaiskulutus	tägi	muuttuja		Rakennuksen lämmönkulutus laskettuna rakennuspinta-alaa kohti erityyppisissä rakennuksissa (W/m2/K)
8	Suhteellinen energiankulutus	tägi	muuttuja		Rakennuksen suhteellinen energiankulutus erityyppisissä ja eri tavalla korjatuissa rakennuksissa verrattuna vertailurakennukseen
9	Kuluttajasähkö	tägi	muuttuja		Kuluttajasähkön määrä erityyppisissä rakennuksissa rakennusneliömetriä kohti (W/m2)
10	Kulutusjousto	tägi	muuttuja		Sähköntarpeen kulutusjousto siirtää kysyntää muutamilla tunneilla huippukysynnän tasoittamiseksi
11	Energiankulutus	tägi	muuttuja		Rakennusten kokonaisenergiankulutus energialajeittain eri sääoloissa (W)
12	Puurakentamisen elinkaarivaikutus	tägi	muuttuja		Puurunkoisella rakentamisella on vaikutuksia lämmitystarpeeseen, rakennusmateriaalien elinkaarivaikutuksiin ja sisäilmaan.
13	Sisäilmaolosuhteet	tägi	muuttuja		Sisäilmaolosuhteilla tarkoitetaan lämpötilaa, kosteutta, melua, sisäilmassa olevia yhdisteitä ja muita tekijöitä, joilla voi olla vaikutusta ihmisen terveyteen tai viihtyisyyteen.
14	Rakennuskanta nyt	kuuluu joukkoon	Rakennuskanta
15	Rakennuskannan suuruus	kuuluu joukkoon	Rakennuskanta
16	Korjausrakentaminen	kuuluu joukkoon	Rakennuskanta
17	Korjausrakentamisen tyyppi	kuuluu joukkoon	Rakennuskanta
18	Uudisrakentaminen ja purkaminen	kuuluu joukkoon	Rakennuskanta
19	Lämmitysmuoto ja energiatehokkuus	kuuluu joukkoon	Rakennuskanta
20	Lämmön ominaiskulutus	kuuluu joukkoon	Rakennuskanta
21	Suhteellinen energiankulutus	kuuluu joukkoon	Rakennuskanta
22	Kuluttajasähkö	kuuluu joukkoon	Rakennuskanta
23	Kulutusjousto	kuuluu joukkoon	Rakennuskanta
24	Energiankulutus	kuuluu joukkoon	Rakennuskanta
25	Puurakentamisen elinkaarivaikutus	kuuluu joukkoon	Rakennuskanta
26	Sisäilmaolosuhteet	kuuluu joukkoon	Rakennuskanta
27	Energiatehokkuus EU-laeissa	vaikuttaa	Kulutusjousto		Kysyntäjousto
28	Nykyisistä energiatodistuksista on luovuttava ja korvattava ne todellisella tuntikohtaisella kulutustiedolla	vaikuttaa	Kulutusjousto		Tuntikohtainen laskutus innostaa vähentämään kulutusta
29	Kuluttajasähkö	vaikuttaa	Energiankulutus	voima;lisäävästi;;	Kuluttajasähkö lisää energiankulutusta
30	Rakennuskannan suuruus	vaikuttaa	Energiankulutus	voima;lisäävästi;;	Rakennuskannan koko vaikuttaa energiankulutukseen
31	Kulutusjousto	vaikuttaa	Energiankulutus		Kulutusjousto muuttaa kulutuksen ajoitusta edullisemmaksi
32	Lämmön ominaiskulutus	vaikuttaa	Energiankulutus		Lämmön ominaiskulutus vaikuttaa rakennuskannan energiankulutukseen
33	Rakennuskanta nyt	vaikuttaa	Rakennuskannan suuruus	voima;lisäävästi;;	Tuleva rakennuskanta perustuu nykyiseen
34	Suhteellinen energiankulutus	vaikuttaa	Rakennuskannan suuruus		Energiankulutus vaikuttaa rakennuskannan rakenteeseen
35	Korjausrakentaminen	vaikuttaa	Rakennuskannan suuruus		Korjausrakentaminen muuttaa rakennuskantaa
36	Korjausrakentamisen tyyppi	vaikuttaa	Rakennuskannan suuruus		Korjausrakentaminen muuttaa rakennuskannan laatua
37	Uudisrakentaminen ja purkaminen	vaikuttaa	Rakennuskannan suuruus	voima;lisäävästi;;	Uudisrakentaminen lisää ja purkaminen vähentää rakennuskantaa
38	Lämmitysmuoto ja energiatehokkuus	vaikuttaa	Rakennuskannan suuruus		Lämmitysmuoto vaikuttaa rakennuskannan rakenteeseen
39	Cleantech-ratkaisut	vaikuttaa	Korjausrakentaminen		Peruskorjausten tehostaminen parantaa rakennuskannan laatua
40	Olosuhdeseurannan digitalisaatio	vaikuttaa	Uudisrakentaminen ja purkaminen		Puurakentaminen tuottaa energiatehokkaampia taloja
41	Sähkön huippukulutuksen hillitseminen on tärkeää	vaikuttaa	Uudisrakentaminen ja purkaminen		Huonojen purkaminen vähentää rakennuskantaa
42	Rakennuksille pakollinen 5-vuotiskatsastus	vaikuttaa	Lämmön ominaiskulutus		Rakennuskatsastukset auttavat energiansäästössä
43	Kysyntäjouston lisääminen	vaikuttaa	Lämmön ominaiskulutus		Olosuhdeseuranta tehostaa energiankäyttöä
44	Energiansäästöä on tehostettava koulutuksella ja neuvonnalla	vaikuttaa	Lämmön ominaiskulutus		Koulutus ja neuvonta auttavat vähentämään energiankulutusta
45	Lämmön talteenottoa lämpöpumpuilla lisättävä.	vaikuttaa	Lämmön ominaiskulutus		Lämpöpumput vähentävät energian ominaiskulutusta
46	Asuntojen lämpölaskut määrättävä todellista kulutusta vastaaviksi	vaikuttaa	Lämmön ominaiskulutus		Energialasku innostaa vähentämään kulutusta
47	Kioton pyramidin käyttö	vaikuttaa	Lämmön ominaiskulutus		Passiivinen jäähdytys vähentää lämmönkulutusta joissakin rakennustyypeissä
48	Energiakatselmuksissa löytyvien ongelmien korjaamista on tuettava.	vaikuttaa	Lämmön ominaiskulutus		Energiakatselmukset auttavat energiansäästössä jos toimia tuetaan
49	Sisäilma- ja käyttöneuvonta	vaikuttaa	Lämmön ominaiskulutus		Rakennusohjeet vaikuttavat lämmönkulutukseen uudisrakennuksissa
50	Aurinkolämmön ja -sähkön edistäminen	vaikuttaa	Suhteellinen energiankulutus		Suositus parantaa energiatehokkuutta
51	Energiatodistusten hyödyntäminen	vaikuttaa	Suhteellinen energiankulutus		Käyttöneuvonta vaikuttaa koko rakennuskannan energiankulutukseen
52	Julkisella sektorilla ei ole oikeutta ohjata ihmisten asumista eikä kulutuskäyttäytymistä.	jos niin ei	Asuntojen lämpölaskut määrättävä todellista kulutusta vastaaviksi		Säätelykielto estää lämpölaskumääräykset
53	Julkisella sektorilla ei ole oikeutta ohjata ihmisten asumista eikä kulutuskäyttäytymistä.	jos niin ei	Nykyisistä energiatodistuksista on luovuttava ja korvattava ne todellisella tuntikohtaisella kulutustiedolla		Säätelykielto estää katsastukset
54	Julkisella sektorilla ei ole oikeutta ohjata ihmisten asumista eikä kulutuskäyttäytymistä.	jos niin ei	Rakennuksille pakollinen 5-vuotiskatsastus		Säätelykielto estää aurinkosuojapakon
55	Kuluttajasähkö	tekee relevantiksi	Sähkön huippukulutuksen hillitseminen on tärkeää		Huippukulutuksen hillintä on tärkeää
56	Lämmitysmuoto ja energiatehokkuus	tekee relevantiksi	Pitkäikäistä hengittävää puurakentamista on suosittava		Puurakentaminen on tärkeää
57	Puurakentamisen elinkaarivaikutus	tekee relevantiksi	Pitkäikäistä hengittävää puurakentamista on suosittava		Puurakentamiseen liittyy arvoja, jotka johtuvat sen vaikutuksista ihmisiin
58	Sisäilmaolosuhteet	tekee relevantiksi	Rakennuksista puhuttaessa muistettava myös ihmisten hyvinvointi.		Ihmisten hyvinvointi rakennuksiin liittyen on tärkeää.
59	Lämmitysmuoto ja energiatehokkuus	tekee relevantiksi	Rakennuksista puhuttaessa muistettava myös ihmisten hyvinvointi.		Rakennuksista puhuttaessa ihmisten hyvinvointi on tärkeää
60	Kuluttajasähkö	tekee relevantiksi	Rakennusten viilennys alkaa olla tärkeämpää kuin lämmitys.		Sähkönkulutuksessa jäähdytys on myös tärkeää
61	Kuluttajasähkö	tekee relevantiksi	Sähkön pitäisi olla kalliimpaa, jotta se kannustaisi säästöön.		Halpa sähkö ei kannusta sähkönsäästöön
62	Lämmön ominaiskulutus	tekee relevantiksi	Uusista rakennuksista on ilmoitettava energiankulutus kWh/asunto-m2/a.		Energiatieto rakennuksista on tärkeää

Jaetun ymmärryksen analyysi

+ Näytä koodi - Piilota koodi

#This is code Op_fi5642/ on page [[op_fi:Energiarenessanssi]]
# Parameters:
#sanalliset <- "muuttuja" # character vector about object types with text labels
#rajaus <- "Uusiutuvat" # IDs of items that are plotted in a smaller graph (also their connections are plotted)
#taulukot <- FALSE # TRUE of FALSE depending whether tables are printed.

library(OpasnetUtils)
library(ggplot2)
library(igraph)
library(RColorBrewer)

## Generic functions and data

edgetype <- data.frame(
  Predikaatti = c(
    "jos niin",
    "jos - niin",
    "jos niin ei",
    "kuuluu valintajoukkoon",
    "tekee relevantiksi",
    "vaikuttaa",
    "on sama kuin",
    "omistaa tägin",
    "on",
    "kuuluu joukkoon"
  ),
  Color = c(
    "Green",
    "Green",
    "Red",
    "Brown",
    "Skyblue2",
    "Black",
    "White",
    "White",
    "White",
    "Black"
  ),
  Width = c(1, 1, 1, 0.5, 1, 3, 1, 1, 1, 1),
  stringsAsFactors = TRUE
)

vertextype = data.frame(
  Type = c(
    "muuttuja",
    "päätös",
    "teko",
    "väite",
    "arvo",
    "oliotyyppi",
    "arviointi",
    "metodi"
  ),
  Shape = c(
    "sphere",
    "rectangle",
    "square",
    "circle",
    "circle",
    "circle",
    "circle",
    "circle"
  ),
  Size = c(20,10,10,10,10,10,10,10),
  StringsAsFactors = TRUE
)

findtypes <- function(
  x, # vector with type data (possibly several per row)
  y  # vector of unique types in the order of preference
) {
  temp <- apply(as.data.frame(y), MARGIN = 1, FUN = function(a) grep(a, x))
  out <- rep(NA, length(x))
  for(i in length(temp):1) {
    out[temp[[i]]] <- i
  }
  return(out)
}

findanytype <- function( # Finds which values of x contain any of entries y
  x, # vector with type data (possibly several per row)
  y  # vector of unique types that give TRUE
) {
  if(length(y) > 0) {
    out <- apply(array(y), MARGIN = 1, FUN = function(a) grepl(a, x))
    out <- apply(out, MARGIN = 1, FUN = any)
  } else {
    out <- rep(FALSE, length(x))
  }
  return(out)
}

#### Case data

objects.latest("Op_fi5642", code_name = "preprocessing")

jy.original <- jy
jy2 <- jy
for(i in 1:ncol(jy2)) jy2[[i]] <- as.character(jy2[[i]])
#Format edges
jy2$ecolor <- "Skyblue2" #edgetype$Color[match(jy$Predikaatti, edgetype$Predikaatti)]
jy2$ewidth <- 1 # edgetype$Width[match(jy$Predikaatti, edgetype$Predikaatti)]
jy2$earrow.size <- 0.5
oprint(head(jy2))

if(taulukot) oprint(jy2)
  
  # Format vertices
  asnam <- c("Name", "Topic", "Desc", "Note", "Type", "ID")
  col <- colorRampPalette(brewer.pal(11, "RdYlGn"))(165)
  
  items <- data.frame(
    Nimi = c(jy2$Subjekti, jy2$Objekti),
    stringsAsFactors = TRUE
  )
  items <- items[!duplicated(items$Nimi) , , drop = FALSE]

oprint(head(items))
  
  #items$vsize <- vertextype$Size[match(items$Type, vertextype$Type)]
  #items$vcolor <- col[83 + as.numeric(as.character(items$Note))]
  #items$vcolor[is.na(items$vcolor)] <- col[83]
  #items$vcolor[items$Type == "muuttuja"] <- "SkyBlue2"
  #items$vcolor[grepl("kiistelty", items$Note)] <- "Pink"
  #items$vshape <- vertextype$Shape[findtypes(items$Type, vertextype$Type)]
  
  #if(taulukot) oprint(items)
  
  ######## Plot all nodes
  
if(FALSE) {  
  # Change selected names to IDs.
  jy2$Subject <- ifelse(
    findanytype(jy2$Type_s, sanalliset), 
    as.character(jy2$Subject), 
    as.character(jy2$ID_s)
  )
  jy2$Object <- ifelse(
    findanytype(jy2$Type_o, sanalliset), 
    as.character(jy2$Object), 
    as.character(jy2$ID_o)
  )
  items2$Name <- ifelse(
    findanytype(items2$Type, sanalliset), 
    as.character(items2$Name), 
    as.character(items2$ID)
  )
}
if(FALSE) {
  ##### Plot selected nodes
  jy3 <- jy[jy$ID_s %in% rajaus | jy$ID_o %in% rajaus , ]
  vtest <- items$Name %in% jy3$Subject | items$Name %in% jy3$Object | items$ID %in% rajaus
  jygraph <- graph.data.frame(
    jy3[c(1,4,2,3,5:ncol(jy))], 
    directed = TRUE, 
    vertices = items[vtest , ] 
  )
}

jygraph <- graph.data.frame(
  jy2[c(1,3,2,4,5:ncol(jy2))], 
  directed = TRUE, 
  vertices = items
)

plot(jygraph, 
     vertex.label.cex = 0.8, 
     vertex.label = NA,
     vertex.size = 2, #V(jygraph)$vsize, 
     vertex.color = "Skyblue2",#V(jygraph)$vcolor, 
     vertex.shape = "circle",#V(jygraph)$vshape,
     vertex.frame.color = "Black",
     vertex.label.family = "Helvetica",
     edge.color = "Black",#E(jygraph)$ecolor,
     edge.width = 0.5, #E(jygraph)$ewidth,
     edge.arrow.size = 0.5,
     layout = layout.fruchterman.reingold
)

+ Näytä koodi - Piilota koodi

#This is code Op_fi5642/preprocessing on page [[:op_fi:Energiarenessanssi]]

library(OpasnetUtils)

# Case data

ohj <- opbase.data("Op_fi4647") # [[Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet]]

# ohj: "Obs"        "Aineisto"               "Sivunumero"            
#      [4] "Osa-alue"               "Toimenpide"             "Relaatio"              
#      [7] "Strategiatason tavoite" "Toimija"                "Result" 

jy <- data.frame(
  Subjekti = ohj$Toimenpide,
  Predikaatti = "tukee",
  Objekti = ohj$"Strategiatason tavoite",
  Tarkenne = paste("viite;", ohj$Aineisto, ohj$Sivunumero, ";;"),
  Kuvaus = ""
)
jy <- rbind(jy, data.frame(
  Subjekti = ohj$Toimenpide,
  Predikaatti = "toimija",
  Objekti = ohj$Toimija,
  Tarkenne = "",
  Kuvaus = ""
))
jy <- rbind(jy, data.frame(
  Subjekti = ohj$Toimenpide,
  Predikaatti = "tägi",
  Objekti = "päätös",
  Tarkenne = "",
  Kuvaus = ""
))
jy <- rbind(jy, data.frame(
  Subjekti = ohj$Toimenpide,
  Predikaatti = "kuuluu joukkoon",
  Objekti = ohj$Result,
  Tarkenne = "",
  Kuvaus = ""
))

str <- opbase.data("Op_fi4646", subset = "Tavoitteet") # [[Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet]]

# str: "Obs"        "Aineisto"   "Sivunumero" "Jaenumero"  "Osa-alue"   "Tavoite"    "Result"  

jy <- rbind(jy, data.frame(
  Subjekti = str$Tavoite,
  Predikaatti = "kuuluu joukkoon",
  Objekti = str$"Osa-alue",
  Tarkenne = paste("viite;", str$Aineisto, str$Sivunumero, ";; ./ jae;", str$Jaenumero, ";;"),
  Kuvaus = ""
))
jy <- rbind(jy, data.frame(
  Subjekti = str$Tavoite,
  Predikaatti = "tägi",
  Objekti = "tavoite",
  Tarkenne = "",
  Kuvaus = str$Result
))

#### Terveys- ja ilmastokeskustelu

temp <- opbase.data("Op_fi5339", subset = "Terveys- ja ilmastokeskustelu")[-1] # [[Keskipitkän aikavälin ilmastopolitiikan suunnitelma]]
colnames(temp)[5] <- "Kuvaus"
jy <- rbind(jy, temp)

#### Robottiautot ja matkojenyhdistely

temp <- opbase.data("Op_fi5339", subset = "Robottiautot ja matkojenyhdistely")[-1] # [[Keskipitkän aikavälin ilmastopolitiikan suunnitelma]]
colnames(temp)[5] <- "Kuvaus"
jy <- rbind(jy, temp)

##### Energiarenessanssi

temp <- opbase.data("Op_fi5642", subset = "Energiarenessanssin asioita")[-1]   # [[Energiarenessanssi]]
colnames(temp)[5] <- "Kuvaus"
jy <- rbind(jy, temp)

#### Energia- ja ilmastokysely

objects.latest("Op_fi5339", code_name = "preprocessing")

eji <- ejikysely
# eji: "Aihe"     "Toimi"    "Vaikutus" "Kannatus" "Puolesta" "Vastaan"  "Ehdotus" 

jy <- rbind(jy, data.frame(
  Subjekti = eji$Toimi,
  Predikaatti = "tägi",
  Objekti = "päätös",
  Tarkenne = "",
  Kuvaus = paste(eji$Ehdotus, ". Kannatus: ", eji$Puolesta, ", ", eji$Vastaan, sep = "")
), data.frame(
  Subjekti = eji$Toimi,
  Predikaatti = "vaikuttaa",
  Objekti = eji$Aihe,
  Tarkenne = "",
  Kuvaus = ""
))

kom <- ejikomm
# kom: "Row"     "Time"    "Comment" "Topic"  "Note"

jy <- rbind(jy, data.frame(
  Subjekti = kom$Name,
  Predikaatti = "tägi",
  Objekti = kom$Type,
  Tarkenne = "",
  Kuvaus = kom$Comment
), data.frame(
  Subjekti = kom$Topic,
  Predikaatti = "tekee relevantiksi",
  Objekti = kom$Name,
  Tarkenne = "",
  Kuvaus = ""
))

objects.store(jy)
cat("Data.frame jy tallennettu.\n")

Katso myös

Arvoprofiili, remontit ja asumisen omadata (Google-esitys lokakuussa 2018
Energiarenessanssi-arviointi siten kuin se lokakuussa 2016 ajateltiin [3]
Helsingin energiapäätös 2015
Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet
Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet
http://www.klimaatti.fi/korjaa-energiapihiksi/
op_en:Parsha Hakemus Suomen Akatemialle sisältäen mm. tämän arvioinnin toteuttamisen.
Miten tieto sidotaan päätöksentekoon
Jaettu ymmärrys
Jaetun ymmärryksen menetelmä
Ympäristötiedon foorumi: Helsinkiläisten energiakäänne – Kuinka energiankuluttajat muuttuvat energiapäättäjiksi? 5.10.2016 [4]
Stadinilmasto: Ilmastoverkosto
Helsingin parhaat energiatehokkuuskäytännöt -työryhmän loppuraportti 21.9.2011 [5]
Energiarenessanssi_300916
energiarenessanssi_muokattu
Energiarenesanssi-mahdollisuudet ja haasteet
Kestävä energia- ja ilmastopolitiikka ja uusiutuvien rooli Suomessa (KEIJU)
Living lab bus [6]
IsoRobasta ilmastokatu 2015 - kokeilualusta ilmastoystävällisille ratkaisuille
Helsinki City Lab - Design Driven City

Lähteet

Kommentoi arviointia

Voit kommentoida mitä tahansa arvioinnin sivua tässä. Selkeyden vuoksi kirjoita alempaan kenttään sen sivun nimi, jonka asioita kommentoit.

Energiarenessanssi

Sisällys

Rajaus

Kysymys

Oletettu käyttö ja käyttäjät

Osallistujat

Rajaus

Vaihtoehdot

Aikataulu ja toteutus

Vastaus

Tulokset

Päätelmät

Perustelut

Riippuvuudet

Laskenta

Jaetun ymmärryksen kuvaus

Jaetun ymmärryksen analyysi

Katso myös

Lähteet

Kommentoi arviointia

Navigointivalikko