Koronavirus

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

Koronavirus käsittelee SARS-COV-2-viruksen ja sen aiheuttaman COVID-19-taudin olennaisia piirteitä.

Laskenta

Piirrä näkemysverkko Kialon koronakeskustelusta

Koronakide-hankkeeseen liittyen tehdään näkemysverkkoja koronarokotusten argumentaatiosta.

Laskennan logiikka on seuraava. Alkuperäiseen väiteeseen A kohdistuu argumentti B ja tähän kohdistuu argumentti C eli C → B → A. Prioritodennäköisyys, että A on totta on P(A), kun meillä ei ole muuta tietoa. Kun lisätään argumentti B, saadaan Bayesin kaavalla

P(A|B) = P(B|A)P(A)/P(B).

Vastaava kaava saadaan todennäköisyydelle että A ei tapahdu eli ¬A eli A' jolloin P(A') = 1-P(A). Sama voidaan merkitä jos P(A) = p niin vastaava vedonlyöntisuhde (odds) on O(A) = q = p/(1-p) ja p = q/(q+1). Tällöin voidaan laskea vedonlyöntisuhde

P(A|B) / P(A'|B) = P(B|A)P(A)/P(B) / (P(B|A')P(A')/P(B))
O(A|B) = P(B|A)/P(B|A') O(A).

Yhtälössä esiintyvää termiä P(B|A)/P(B|A') kutsutaan myös Bayes-tekijäksi BF eli

O(A|B) = BF(B) O(A).

BF(B) riippuu kahdesta asiasta: siitä onko B totta eli P(B) ja siitä, kuinka paljon P(B) riippuu siitä, onko A totta vai ei.

+ Näytä koodi - Piilota koodi

# This code is Op_fi####/koronakide on page [[Koronavirus]]

library(OpasnetUtils)
library(gsheet)

df <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1Wzj_VqubkV6uomQS-St5UxzS5k25dDBs15DQFEsroOg/edit#gid=0")
df$Context <- "Koronakide"
df$Item <- gsub("\\.$", "", df$position)
df$label <- substr(df$text, 1,30)
df$rel <- ifelse(toupper(df$type)=="PRO","relevant defense","relevant attack")
df$type <- "argument"
df$Object <- gsub("\\.[0-9]$","", df$Item)
df$Description <- df$text

objects.latest("Op_en3861", code_name="makeGraph") # [[Insight network]] makeGraph

gr <- makeGraph(df)
render_graph(gr, title="Kialo-keskustelu koronarokotteiden pakollisuudesta")
export_graph(gr, "~/home/jouni/Documents/Koronakide.pdf")

Hae kirjanmerkit Firefoxista

+ Näytä koodi - Piilota koodi

# Firefoxista tallennettiin bookmarkeiksi kaikki korona-välilehdet. Nämä exportattiin html-tiedostoksi koronalinkit.html

library(xml2)
library(rvest)

df <- read_html("koronalinkit.html", options="HUGE")
df <- data.frame(
  html_attr(html_nodes(df, css="a"),"href"),
  html_text(html_nodes(df, css="a"))
)
colnames(df) <- c("url","name")
write.csv(paste0("* [", df$url, " ", df$name,"]"), "output.txt", row.names = FALSE)
# Tiedostosta poistettiin "-merkit ja sitten kopioitiin Opasnettiin.

Katso myös

Koronavirus

Sisällys

Laskenta

Piirrä näkemysverkko Kialon koronakeskustelusta

Hae kirjanmerkit Firefoxista

Katso myös

Navigointivalikko