Ero sivun ”Joensuun keskustan liikennemalli J1” versioiden välillä
p (typoja) |
(→Data) |
||
(8 välissä olevaa versiota 4 käyttäjän tekeminä ei näytetä) | |||
Rivi 1: | Rivi 1: | ||
{{muuttuja|moderator=smxb}} | {{muuttuja|moderator=smxb}} | ||
[[Luokka:Sisältää R-koodia]] | |||
== Rajaus == | == Rajaus == | ||
Rivi 11: | Rivi 12: | ||
=== Data === | === Data === | ||
{{vastusta|#: |Laskenta ei toimi, koska obs-sarake on poistettu tietokantataulusta. Koodin päivittämiseksi pitäisi tehdä: | |||
* Palauttaa obs tai luoda vastaava uusi indeksi, esim. Ehdotus (myös vanhoihin syötteisiin!). | |||
* Tarkistaa, että koodeissa on oikea series_id: 3636. | |||
* Analyysikoodi on kirjoitettu hyödyntämättä ovariableja. Pitäisikö se miettiä kokonaan uusiksi? | |||
* Lopussa oleva terveysvaikutuslaskenta pitäisi toteuttaa uusimman [[:op_en:HIA|HIA]]-laskennan mukaisesti. | |||
* Olisiko tässä helpompi hyödyntää location-parametria käyttöliitymässä? | |||
|--[[Käyttäjä:Jouni|Jouni Tuomisto]] 7. lokakuuta 2013 kello 09.07 (EEST)}} | |||
Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin. | Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin. | ||
Rivi 23: | Rivi 32: | ||
|name:suunnitelma|description:Voit antaa omalle suunnitelmallesi nimen, jolloin yksittäiset ehdotukset käsitellään kokonaisuutena (eli kaikki samannimiset suunnitelmat yhdistetään yhdeksi kokonaissuunnitelmaksi). Voit myöhemmin palata mihin tahansa tietokannasta löytyvään suunnitelmaan ja simuloida sen tunnusluvut kirjoittamalla sen nimen alla olevaan kenttään ja painamalla 'Aja koodi'-näppäintä. Vastaavasti uusi liikennesuunnitelma talletetaan tietokantaan kirjoittamalla suunnitelmasi nimi alla olevaan kenttään heittomerkkien väliin ja valitsemalla yllä olevista valikoista liikenneratkaisusi koordinaatit ja tietyyppi.|default:'suunnitelma Joensuu 3' | |name:suunnitelma|description:Voit antaa omalle suunnitelmallesi nimen, jolloin yksittäiset ehdotukset käsitellään kokonaisuutena (eli kaikki samannimiset suunnitelmat yhdistetään yhdeksi kokonaissuunnitelmaksi). Voit myöhemmin palata mihin tahansa tietokannasta löytyvään suunnitelmaan ja simuloida sen tunnusluvut kirjoittamalla sen nimen alla olevaan kenttään ja painamalla 'Aja koodi'-näppäintä. Vastaavasti uusi liikennesuunnitelma talletetaan tietokantaan kirjoittamalla suunnitelmasi nimi alla olevaan kenttään heittomerkkien väliin ja valitsemalla yllä olevista valikoista liikenneratkaisusi koordinaatit ja tietyyppi.|default:'suunnitelma Joensuu 3' | ||
"> | "> | ||
library( | library(OpasnetUtils) | ||
Obs <- max( | oprint(opbase.data("Op_fi2681", series_id = 3636)) | ||
Obs <- max(opbase.data("Op_fi2681", series_id = 3636)[,"obs"])+1 | |||
data <- data.frame( | data <- data.frame( | ||
obs = rep(Obs, 6), | obs = rep(Obs, 6), | ||
Rivi 30: | Rivi 40: | ||
Result = c(mistä.x, mistä.y, mihin.x, mihin.y, lisäys, suunnitelma)) | Result = c(mistä.x, mistä.y, mihin.x, mihin.y, lisäys, suunnitelma)) | ||
opbase.upload( | opbase.upload(input = data, ident = "Op_fi2681", acttype = 5, who = wiki_username, unit = "-") | ||
cat("Kiitos ehdotuksestasi!") | cat("Kiitos ehdotuksestasi!") | ||
Rivi 43: | Rivi 53: | ||
Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt) | Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt) | ||
=== | === Liikenneskenaarion vaikutukset nykytilanteeseen (BAU) verrattuna === | ||
<rcode graphics="1"> | <rcode graphics="1"> | ||
library(xtable) | |||
# Luetaan liikennemaarat Opasnet Base-tietokannasta, muuttujasta Op_fi2681: | # Luetaan liikennemaarat Opasnet Base-tietokannasta, muuttujasta Op_fi2681: | ||
# | # | ||
library( | library(OpasnetUtils) | ||
risteykset <- | risteykset <- opbase.data("Op_fi2681", series_id = 2953) # TARKISTA SERIES!!! | ||
# | # | ||
# Muutetaan tekstitulokset numeroiksi. Jostain syystä Länteen tallentui tekstinä. | # Muutetaan tekstitulokset numeroiksi. Jostain syystä Länteen tallentui tekstinä. | ||
Rivi 183: | Rivi 193: | ||
# suunnitelma Joensuu 5 (vrt. samaan polkuun kun siirtokerroin 0.1 (Pyörätie )-> 1.0 (Kävelykatu) (suunnitelma Joensuu 6)) | # suunnitelma Joensuu 5 (vrt. samaan polkuun kun siirtokerroin 0.1 (Pyörätie )-> 1.0 (Kävelykatu) (suunnitelma Joensuu 6)) | ||
#polku <- c("A7","B7","C7","D7","E7","F7","G7","H7","I7","I6","I5","I4","I3","I2","I1") | #polku <- c("A7","B7","C7","D7","E7","F7","G7","H7","I7","I6","I5","I4","I3","I2","I1") | ||
# | |||
# suunnitelma Joensuu 7 | |||
#polku <- c("L1","L2","L3","L4","L5","L6","L7","A1","B1","C1","D1","D2","D3","D4") | |||
# | |||
# suunnitelma Joensuu 8 | |||
#polku <- c("H1","H2","H3","H4","H5","H6","H7","H8","H9","L1","L2","L3","L4","L5","L6","L7","A1","B1","C1") | |||
Rivi 256: | Rivi 272: | ||
if(liikennesuunnitelmalista[[1]] == "Pyörätie") siirtokerroin <- 0.1; | if(liikennesuunnitelmalista[[1]] == "Pyörätie") siirtokerroin <- 0.1; | ||
if(liikennesuunnitelmalista[[1]] == "Kävelykatu") siirtokerroin <- 1.0; | if(liikennesuunnitelmalista[[1]] == "Kävelykatu") siirtokerroin <- 1.0; | ||
# | |||
# STAND ALONE-koodissa ylla olevat 2 rivia on kommentoitava pois ja KORVATTAVA RIVILLA | |||
#siirtokerroin <- 0.1 # Pyörätie | |||
#siirtokerroin <- 1.0 # Kävelykatu | |||
# | |||
jaettava <- siirtokerroin*num_polun_liikennemaara; | jaettava <- siirtokerroin*num_polun_liikennemaara; | ||
Rivi 409: | Rivi 430: | ||
# Esitetaan tulokset skenaario kerrallaan: | # Esitetaan tulokset skenaario kerrallaan: | ||
# | # | ||
print("SKENAARIO: BAU (= NYKYTILANNE)"); print("Kokonaisliikennemaarä (autoa/vrk)"); kokonaisliikennemaara; print("Liikennesuorite (km/vrk)"); liikennesuorite; print("Hiilidioksidijalanjälki (1000 kg/v)"); paastot.co2/1000 | #print("SKENAARIO: BAU (= NYKYTILANNE)"); print("Kokonaisliikennemaarä (autoa/vrk)"); kokonaisliikennemaara; print("Liikennesuorite (km/vrk)"); liikennesuorite; print("Hiilidioksidijalanjälki (1000 kg/v)"); paastot.co2/1000 | ||
tuloste <- data.frame(Suure = c("Skenaario", "Kokonaisliikennemäärä", "Liikennesuorite", "Hiilidioksidijalanjälki"), Yksikkö = c("", "autoa/vrk", "km/vrk", "1000 kg/v"), Arvo = c("Nykytilanne (BAU)", kokonaisliikennemaara, liikennesuorite, paastot.co2/1000)) | |||
print(xtable(tuloste), type='html') | |||
# | # | ||
print("SKENAARIO: KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA (risteykset lueteltu alla)"); polku; print("Kokonaisliikennemäärä (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2; print(" | #print("SKENAARIO: KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA (risteykset lueteltu alla)"); polku; print("Kokonaisliikennemäärä (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2; print("Hinta-arvio toteutuksesta (1000 €) = Raha"); ero.hinta.pk; print("MUUTOS hiilidioksidijalanjäljessä (1000 kg/v) = Luonto"); ero.paastot.co2; print("MUUTOS pienhiukkaspäästöjen aiheuttamien sairauspäivien lukumäärässä tuhatta herk. henkeä kohden (lkm/v) = Terveys"); spv.ero.henkilo | ||
tuloste <- data.frame(Suure = c("Skenaario", "Polku", "Kokonaisliikennemäärä", "Liikennesuorite", "Hinta-arvio toteutuksesta = Raha", "MUUTOS hiilidioksidijalanjäljessä = Luonto", "MUUTOS pienhiukkaspäästöjen aiheuttamien sairauspäivien lukumäärässä tuhatta herk. henkeä kohden = Terveys"), Yksikkö = c("", "", "autoa/vrk", "km/vrk", "1000 €", "1000 kg/v", "lkm/v"), Arvo = c("KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA", paste(polku, collapse = ", "), kokonaisliikennemaara2, liikennesuorite2, ero.hinta.pk, ero.paastot.co2, spv.ero.henkilo)) | |||
print(xtable(tuloste), type = 'html') | |||
# | # | ||
plotResults <- c(ero.hinta.pk,ero.paastot.co2,spv.ero.henkilo) | plotResults <- c(ero.hinta.pk,ero.paastot.co2,spv.ero.henkilo) | ||
plotResults_num <- as.numeric(plotResults < 0) | plotResults_num <- as.numeric(plotResults < 0) | ||
colorbar <- c(" | colorbar <- c("red","red","red") | ||
colorbar[which(plotResults_num == 1)] <- " | colorbar[which(plotResults_num == 1)] <- "green" | ||
barplot(plotResults, col=colorbar, names.arg=c("Kustannus (1000 euroa)","Ero CO2-päästö vs BAU","Ero sairaspäivissä/(1000 henk. v) vs BAU")) | barplot(plotResults, col=colorbar, names.arg=c("Raha","Luonto","Terveys"), cex.axis=1.7, cex.names=1.7) | ||
#barplot(plotResults, col=colorbar, names.arg=c("Kustannus (1000 euroa)","Ero CO2-päästö vs BAU (1000 kg/v)","Ero sairaspäivissä/(1000 henk. v) vs BAU")) | |||
</rcode> | </rcode> | ||
== Tulokset == | == Tulokset == | ||
Rivi 428: | Rivi 456: | ||
<rcode> | <rcode> | ||
library( | library(OpasnetUtils) | ||
library(xtable) | library(xtable) | ||
data <- | data <- opbase.data("Op_fi2681")[, -c(1,4)] | ||
data <- reshape(data, timevar = "Parameter", idvar = "obs", direction = "wide") | data <- reshape(data, timevar = "Parameter", idvar = "obs", direction = "wide") | ||
colnames(data) <- c("obs", "lisäys", "mihin.x", "mihin.y", "mistä.x", "mistä.y", "suunnitelma") | colnames(data) <- c("obs", "lisäys", "mihin.x", "mihin.y", "mistä.x", "mistä.y", "suunnitelma") | ||
Rivi 439: | Rivi 467: | ||
== Katso myös == | == Katso myös == | ||
* [[Osallistuva_kaupunkisuunnittelu_-_Eracedu_2011]] | |||
* [[Helsingin seudun liikennemalli]] | * [[Helsingin seudun liikennemalli]] | ||
* [http://www.viddler.com/explore/otavanopisto/videos/312/ Video liikennemallin ja liikennepelin esittelystä] (Otavan opiston paja 8.9.2011) | * [http://www.viddler.com/explore/otavanopisto/videos/312/ Video liikennemallin ja liikennepelin esittelystä] (Otavan opiston paja 8.9.2011) | ||
Rivi 454: | Rivi 481: | ||
{{mfiles}} | {{mfiles}} | ||
{{eracedu}} | |||
Nykyinen versio 7. lokakuuta 2013 kello 06.07
Moderaattori:smxb (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Rajaus
Liikennemalli J1 on yksinkertaistettu versio Helsingin seudun joukkoliikennemallista. Malli J1 on rajattu Joensuun ydinkeskustaan 9*13-korttelin hilaan. Mallia J1 käytetään osana 31.10.2011 Joensuussa järjestettävää Eracedu-koulutustapahtumaa.
Mallia voi kokeilla klikkaamalla otsikon 'Kaava' alta löytyvää 'Aja koodi' -näppäintä. Oman liikenneratkaisusi voit syöttää sisään vastaamalla kysymyksiin otsikon 'Data' alla. Jo syötetyt liikennesuunnitelmat otsikon 'Näytä tähänastiset ehdotukset' alla olevaa 'Aja koodi'-näppäintä painamalla
Määritelmä
Data
⇤#: Laskenta ei toimi, koska obs-sarake on poistettu tietokantataulusta. Koodin päivittämiseksi pitäisi tehdä:
- Palauttaa obs tai luoda vastaava uusi indeksi, esim. Ehdotus (myös vanhoihin syötteisiin!).
- Tarkistaa, että koodeissa on oikea series_id: 3636.
- Analyysikoodi on kirjoitettu hyödyntämättä ovariableja. Pitäisikö se miettiä kokonaan uusiksi?
- Lopussa oleva terveysvaikutuslaskenta pitäisi toteuttaa uusimman HIA-laskennan mukaisesti.
- Olisiko tässä helpompi hyödyntää location-parametria käyttöliitymässä?
--Jouni Tuomisto 7. lokakuuta 2013 kello 09.07 (EEST)
Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin.
Kausaliteetti
- Ylävirtamuuttujia ei ole.
Yksikkö
Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt)
Liikenneskenaarion vaikutukset nykytilanteeseen (BAU) verrattuna
Tulokset
Näytä tähänastiset ehdotukset
Katso myös
- Osallistuva_kaupunkisuunnittelu_-_Eracedu_2011
- Helsingin seudun liikennemalli
- Video liikennemallin ja liikennepelin esittelystä (Otavan opiston paja 8.9.2011)
Viitteet
Aiheeseen liittyviä tiedostoja
<mfanonymousfilelist></mfanonymousfilelist>