Ero sivun ”Koronavirus” versioiden välillä

Versio 22. heinäkuuta 2021 kello 13.20

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