Ero sivun ”Ympäristöterveysindikaattori” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 108: Rivi 108:


objects.latest("Op_en3861",code_name="ecd_create") # [[Extended causal diagram]] ecd_create, fillprev, splizzeria
objects.latest("Op_en3861",code_name="ecd_create") # [[Extended causal diagram]] ecd_create, fillprev, splizzeria
objects.latest("Op_en3861",code_name="discograph") # [[Extended causal diagram]] discograph


page <- "http://en.opasnet.org/w/Discussion"
out <- discograph("http://en.opasnet.org/w/Talk:Assessment_of_the_health_impacts_of_H1N1_vaccination", 1)
dat <- read_html(page)
out <- discograph("http://en.opasnet.org/w/Discussion", 2)
disc <- html_nodes(dat, css="div.discussion")
out <- data.frame()
i <- 2
#for(i in 1:length(disc)) {
  stat <- html_text(html_nodes(disc[[i]], css=".statements"), trim=TRUE)
  reso <- html_text(html_nodes(disc[[i]], css=".resolution"), trim=TRUE)
  resd <- html_text(html_nodes(disc[[i]], css=".resolved"), trim=TRUE)
  id <- html_attr(disc[[i]], "id")
  disc.id <- paste(id, c("statement","resolution"),sep=".")
 
  # This version would maintain the hierarchy but I don't know how to implement it full. It is done manually now.
  # .argumentation > dl > dd > .argument
 
  arg.id <- html_attr(html_nodes(disc[[i]], css=".argumentation .argument"), "id")
  arg.content <- html_text(html_nodes(disc[[i]], css=".argumentation .argument .content"))
  arg.sign <- html_text(html_nodes(disc[[i]], css=".argumentation .argument .sign a:first-of-type"))
  arg.relat1 <- html_text(html_nodes(disc[[i]], css=".argumentation .argument .relat1"))
  arg.relev1 <- html_attr(html_nodes(disc[[i]], css=".argumentation .argument .relat1"), "color")
  arg.truth1 <- html_attr(html_nodes(disc[[i]], css=".argumentation .argument .truth1"), "color")
  arg.parad1 <- html_text(html_nodes(disc[[i]], css=".argumentation .argument .parad1"))
  arg.parent <- c(rep(disc.id[1], 4),"4",disc.id[1],"11:24")
 
  arg.relat1 <- c("attack","defense","comment")[match(substr(arg.relat1,1,3), c("\U21E4--","\U2190--","---"))]
  arg.truth1 <- ifelse(arg.truth1=="gray","false","true")
  arg.relev1 <- ifelse(arg.relev1=="gray","irrelevant","relevant")
 
  out <- data.frame( ### Arguments
    Oldid = paste(id,arg.id,sep="."),
    type = paste(arg.truth1,"argument"),
    Item = arg.id,
    label = substr(arg.content, 1, 30),
    Relation = paste(arg.relev1, arg.relat1),
    Object = arg.parent,
    Description = arg.content,  
    URL = paste(page, arg.id,sep="#"),
    stringsAsFactors=FALSE
  )
  out <- orbind(
    out,
    data.frame(
      Oldid = disc.id,
      type = c("statement","resolution"),
      Item = disc.id,
      label = substr(c(stat,reso),1, 30),
      Relation = c("produces",""),
      Object = c(disc.id[2],""),
      Description = c(stat, reso),
      URL = paste(page, id, sep="#"),
      stringsAsFactors=FALSE
    )
  )
 
#  }


gr <- ecd_create(out)
gr <- ecd_create(out)
render_graph(gr)
render_graph(gr)
gr <- select_nodes(gr, c(rep(FALSE,20),rep(TRUE,48)))
render_graph(transform_to_subgraph_ws(gr))
html_text(html_nodes(disc, css=".argument .title"))
</rcode>
</rcode>


Versio 14. heinäkuuta 2018 kello 14.54




Ympäristöterveysindikaattori on elinympäristön tiettyä ominaisuutta mittaava asia, joka kertoo ympäristön terveellisyydestä ihmiselle.

Kysymys

Mitkä ovat hyödyllisiä indikaattoreita Suomen ympäristöterveystilanteen seuraamiseksi ja parantamiseksi?

Vastaus

Ympäristötervyden keskeiset tekijät, toimenpiteet ja mittarit.

Nämä indikaattorit ovat olemassa tai suunnitteilla:

  • Pienhiukkaspitoisuuden väestöpainotettu vuosikeskiarvo (Yhteistyötilat)
  • Sisätilaongelmista koulussa raportoivat koululaiset
  • Vesivälitteisten epidemioiden lukumäärät ja sairastuneiden lukumäärät
  • Elintarvikevälitteisten epidemioiden lukumäärät ja sairastuneiden lukumäärät

Perustelut

Data

Näkemysverkkojen tietotauluja

Data on muodostettu koodilla:

+ Näytä koodi

Työlista

  • Katso sivun op_en:Congestion charge keskusteluja ja täydennä niihin eri paradigman mukaisia relaatioita. Käytettävät paradigmat:
    • science: templaatissa mainittu relaatio on science-paradigman mukainen. Perussääntö: argumentti on epäpätevä, jos siinä ei ole viittausta taustatietoon (havaintoihin) tai jos sitä vastaan hyökätään pätevällä argumentilla.
    • unattackedstand: Perussääntö: argumentti on epäpätevä, jos sitä vastaan hyökätään pätevällä argumentilla.
    • personaltine: Perussääntö: argumentti on epäpätevä, jos sen on esittänyt Tine Bizjak tai Tamara Gajst tai jos sitä vastaan hyökätään pätevällä argumentilla.
  • Lisää kaikkiin sivun op_en:Talk:Congestion charge keskusteluihin argumenttien tunnisteet, jotka ovat muotoa keskustelunnimi.juoksevanumero eli esim. health.4. Keskustelut nimetään ylhäältä alas seuraavasti: airquality, health, choice, economy, mobility, unfair, tragedy, dynamic, inefficient, distribution.
  • Kommentoi ideaa sivulla op_en:Template:Argument ja
    tägien käytöstä parametrien löytymiseksi sivulta. (Koskee Pietaa tai muitakin jos osaatte html:ää).
  • Kommentoi paradigmaidean käytettävyyttä ja mielekkyyttä yleensä ja sen sovellettavuutta eri paradigmojen osalta erityisesti.
  • Tee Google sheet, jonne listataan kaikki Sitran 100 fiksua tekoa siten, että sarakkeisiin tulevat. Mieti yhteisesti kattava teemalista ja käytä sitä yhdistämään Helsingin ja Sitran toimepiteitä.
    • Nimi (arjen teon nimi)
    • Suuruus (onko vaikutus pieni, keskisuuri vai suuri)
    • Aihepiiri (liittyykö teko asumiseen, matkustamiseen jne)
    • URL sivulle, jossa teko esitellään
  • Tutustu uuteen kuvaukseen Helsingin ilmastopolitiikasta:
  • Tutustu kuvaukseet ruuhkamaksuista (Decision analysis and risk management 2017 -kurssilla tehty)
  • Tutustu sanastoon sivulla op_en:Structure of shared understanding ja kommentoi kummallisuuksia ja epäselvyyksiä.
  • Tutustu kaavioiden muotoiluihin sivulla op_en:Extended causal diagram ja kommentoi kummallisuuksia ja epäselvyyksiä. Kaavioiden toteutus R-paketilla DiagrammeR nettisivu, dokumentaatio.
  • Tutustu ympäristöterveyden indikaattoreihin sivulla Ympäristöterveys
  • Käytä näitä keskustelumuotoiluja kun haluat kommentoida sivun sisältöä Opasnetissä: ----#: . Huom! Joihinkin on lisätty lisäparametreja muita paradigmoja varten. Parametrien järjestys on ratkaiseva. --Jouni Tuomisto (keskustelu) 9. heinäkuuta 2018 kello 11.00 (UTC) (type: truth; paradigms: science: comment)
    • Kommentti: 
      {{comment|# (tarvittaessa argumentin numero)|Kommentoiva argumentti.|--~~~~|unattackedstand|comment|invalid|personaltine|attack}}
    • Puolusta: 
      {{defend|# (tarvittaessa argumentin numero)|Puolustava argumentti.|--~~~~|personaltine|defend|invalid}}
    • Hyökkää (vastusta): 
      {{attack|# (tarvittaessa argumentin numero)|Hyökkäävä argumentti.|--~~~~}}

Syykaaviot


+ Näytä koodi

+ Näytä koodi

Sisäilma kouluissa

Kouluterveyskysely tuottaa jotakin tietoa myös sisäilmasta, oppimisympäristöstä yleensä ja oppilaiden raportoimista yleisistä oireista. Katso lisätietoa näistä linkeistä:


+ Näytä koodi

Indikaattorien lataus Sotkanettiin

+ Näytä koodi

Sotearvioinnin koodi liittyen ympäristöterveyteen

+ Näytä koodi

Katso myös

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Ympäristöterveysindikaattori&oldid=35096”