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äitteeseen A kohdistuu argumentti B ja tähän kohdistuu argumentti C eli C → B → A. Prioritodennäköisyys, että A on totta eli A+ 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- 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 tai faktoriksi F eli

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

Merkintänä F(B) tarkoittaa yleensä, että on havaittu B. Kuitenkin ennen havaintoa meillä on kaksi vaihtoehtoa, B+ todennäköisyydellä P(B+) ja B- todennäköisyydellä P(B-) = 1-P(B+). Ensimmäisessä tapauksessa Bayes-tekijä on F(B+) ja jälkimmäisessä F(B-) = 1/F(B+). Tämän kuvauksessa käytetään kahta parametria: todennäköisyys että B on totta eli P(B+) (totuusarvo) ja BF(B+) eli P(B+|A)/P(B+|A') (relevanssi). Näistä lasketaan odotusarvo. Täydellisempi kuvaus sisältäisi kaikki mahdolliset kombinaatiot todennäköisyyksineen eli koko Bayes-verkon (BBN) yhteisjakauman. Se on kuitenkin myöhempien laskentojen asia.

Esimerkkinä laskennasta on oheinen taulukko.

	A+	A-
B+	0.4	0.6
B-	0.01	0.99

F(B+) = P(B+|A+)/P(B+|A-) = 0.4/(0.4+0.01) / (0.6/(0.6+0.99)) = 0.40 * 1.59 / (0.41 * 0.60) = 308/71 ≈ 4.338

F(B-) = P(B-|A+)/P(B-|A-) = 0.01/(0.4+0.01) / (0.99/(0.6+0.99)) = 0.01 * 1.59 / (0.41 * 0.99) = 159/4001 ≈ 0.03974

+ 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