Ero sivun ”Koronavirus” versioiden välillä

Versio 3. elokuuta 2021 kello 16.05

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ä.

Perustelut

Data

Keskusteluja koronaviruksesta ja kovidista Kialo-alustalla, esim. Onko kovidipandemialla pysyviä vaikutuksia yhteiskuntaan?. Alla olevassa tiedostossa on 15 keskustelua aihepiiristä.

Covid-19_dicussions

Laskenta

Piirrä näkemysverkko Kialon koronakeskustelusta

Argumentaatio koskien koronarokotusten pakollisuutta.

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 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).

Sensitiivisyys (se) on testin (B) herkkyys eli todennäköisyys saada positiivinen tulos jos asia (A) on totta: se = P(B|A) = a/(a+c). Mitä parempi herkkyys, sitä vähemmän vääriä negatiivisia.

Spesifisyys (sp) on testin (B) tarkkuus eli todennäköisyys saada negatiivinen tulos jos asia (A) ei ole totta: sp = 1-P(B|¬A-) = 1 - b/(b+d). Mitä parempi tarkkuus, sitä vähemmän vääriä positiivisia. Herkkyys ja tarkkuus ovat tärkeitä mittareita, koska ne eivät riipu itse asian todennäköisyydestä.

Esimerkkinä laskennasta on oheinen taulukko.

	A+	A-	Sum
B+	0.29 (a)	0.60 (b)	0.89
B-	0.01 (c)	0.10 (d)	0.11
Sum	0.30	0.70	1.00

se = a/(a+c) = 0.29/0.30 = 29/30

sp = b/(b+d) = 0.10/0.70 = 1/7

Mitä tietoja tarvitaan, jotta nelikenttä saadaan yksikäsitteisesti muodostettua? Jos tiedetään poikkisummat P(A) ja P(B), saadaan laskettua myös P(¬A) = 1-P(A) ja P(¬B) = 1-P(B). Yksiselitteisyyden saavuttamiseksi on tiedettävä vielä kolmas asia eli esimerkiksi P(B|A) eli herkkyys, joka kuvaa myös argumentin B relevanssia A:n suhteen eli kykyä muuttaa A:n posterioritodennäköisyyttä.

P(A) = a+c
P(B) = a+b
se = P(B|A) = a/(a+c) <=> a = se P(A), joten b = P(B) -se P(A)

Koska P(A|B) saadaan laskettua a/(a+b), matemaattinen määrittelyjoukko on 0 < P(A), P(B), se, a, b < 1 eli erityisesti 0 < P(B)-se P(A) < 1 eli (P(B)-1)/P(A) < se < P(B)/P(A). Koska P(B)<=1, alarajaehto ei tule koskaan vastaan vaan riittää, että se>0. Sen sijaan ylärajaehto voi hyvinkin olla <1 eli tulee joskus rajoittavaksi tekijäksi.

Argumentti on epärelevantti, jos P(A) = P(A|B) = a/(a+b) = se P(A)/P(B) eli se = P(B).

Jotta käyttäjän antamat parametrit olisivat aina määriteltyjä ja helppo ymmärtää, voitaisiin ottaa käyttöön seprime-parametri, joka saa arvoja välillä ]-1,1[, joka kattaa koko sensitiivisyyden määrittelyjoukon ja joka saa epärelevantin argumentin kohdalla arvon 0. Niinpä

se = P(B|A) = P(B) + seprime(min(1,P(B)/P(A)) - P(B)), jos 0 <= seprime < 1
se = P(B|A) = P(B) + seprimeP(B), jos -1 < seprime < 0.

Kuitenkin meitä kiinnostaa relevanssiargumentin C vaikutus A:han B:n kautta. Koska P(B|A) riippuu A:sta, relevanssivaikutusta ei voida suoraan laskea C:n ja B:n tietojen avulla. Sen sijaan voidaan laskea seprime(B), jos ajatellaan seprime(C):n voimistavan tai heikentävän vaikutusta tietyn osuuden verran. C-argumentin todennäköisyys vaikuttaa siihen voimakkuuteen, jolla C muuttaa seprime(B):tä.

seprime(B|C) = seprime(B) + seprime(C) P(C)(1-seprime(B)), jos seprime(C)>=0
seprime(B|C) = seprime(B) + seprime(C) P(C) seprime(B), jos seprime(C)<0

Edellä sanottu pätee, jos seprime(B) >= 0, muussa tapauksessa pitää ensin laskea yhtälöt seprime(B):n itseisarvolla ja palauttaa negatiivinen etumerkki jälkikäteen. Tämä johtuu siitä, että argumenttiin B kohdistuvat argumentit voivat lisätä tai vähentää sen relevanssia, mutta ne eivät voi vaihtaa hyökkäävää argumenttia puolustavaksi eikä päinvastoin.

Argumentin vaikutus keskusteluun lasketaan käyttäen esimerkiksi seuraavia oletusarvoja (näiden toimivuutta on testattava käytännössä):

Argumentin herkkyys P(B|A) lasketaan relevanssitekijän (seprime) avulla: oletuksena 0.3 jos argumentti puolustaa ja -0.3 jos hyökkää
Argumenttien totuuden prioritodennäköisyys P(A) = 0.7 jos on uskottava viite, 0.3 jos viite puuttuu

Näiden avulla lasketaan argumentin posterioritodennäköisyys:

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

Jos argumentti C on relevanssityyppiä, se vaikuttaa argumentin B relevanssiin muuttamalla tekijää se = P(B|A) epäsuorasti seprimen kautta

+ Näytä koodi - Piilota koodi

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

library(OpasnetUtils)
library(tidyverse)

# First version of data https://docs.google.com/spreadsheets/d/1Wzj_VqubkV6uomQS-St5UxzS5k25dDBs15DQFEsroOg/edit#gid=0

# Relevant nodes for discussion 11 "COVID-19 vaccines should be mandatory"
#relevants <- gshe#et2tbl("https://docs.google.com/spreadsheets/d/1Wzj_VqubkV6uomQS-St5UxzS5k25dDBs15DQFEsroOg/edit#gid=0")
#relevants <- relevants$position[relevants$class=="relevance"]
#relevants <- gsub("\\.$","", relevants)
relevants <- c(
 "1.2.1"          , "1.2.1.1"       ,  "1.2.1.1.1"      , "1.2.1.1.1.1"   ,  "1.2.1.5"        ,
 "1.2.2.1"        , "1.2.2.1.2"     ,  "1.2.2.2"        , "1.2.2.2.1"     ,  "1.2.3.1"        ,
 "1.2.4"          , "1.2.4.2.1"     ,  "1.2.4.4"        , "1.2.5.1.1.1"   ,  "1.2.5.2"        ,
 "1.2.5.2.1"      , "1.2.5.2.1.2"   ,  "1.2.5.2.2"      , "1.2.5.2.4.5"   ,  "1.2.5.3"        ,
 "1.2.5.3.1"      , "1.2.5.3.2"     ,  "1.2.5.3.3"      , "1.2.5.3.4"     ,  "1.2.5.3.4.1.1"  ,
 "1.2.5.4"        , "1.2.6"         ,  "1.2.7"          , "1.2.7.1"       ,  "1.2.7.1.1"      ,
 "1.2.7.3"        , "1.2.7.4"       ,  "1.2.7.5"        , "1.2.7.5.1.1"   ,  "1.2.8.2"        ,
 "1.2.8.3"        , "1.3.2.2"       ,  "1.3.4"          , "1.4.1.1.1.2"   ,  "1.4.1.1.1.4"    ,
 "1.4.1.1.2"      , "1.4.1.3"       ,  "1.4.1.3.3.1"    , "1.4.1.3.3.2"   ,  "1.4.1.3.4.1"    ,
 "1.4.1.3.4.2"    , "1.4.1.3.4.3"   ,  "1.4.1.4.2.1"    , "1.4.2"         ,  "1.4.2.1"        ,
 "1.4.2.2"        , "1.4.2.3"       ,  "1.4.2.3.1"      , "1.4.2.4"       ,  "1.4.2.5"        ,
 "1.4.3"          , "1.4.4.1"       ,  "1.5.1"          , "1.5.1.2"       ,  "1.5.2"          ,
 "1.5.2.1.1"      , "1.5.2.1.2"     ,  "1.5.2.1.2.1"    , "1.5.2.1.3.1"   ,  "1.5.2.1.4"      ,
 "1.5.2.1.4.3.1"  , "1.5.2.1.4.4"   ,  "1.5.2.3"        , "1.5.2.3.1"     ,  "1.5.3"          ,
 "1.5.4"          , "1.5.4.1"       ,  "1.5.4.1.2"      , "1.5.4.3.1"     ,  "1.5.4.3.2"      ,
 "1.5.4.3.3"      , "1.5.4.3.4"     ,  "1.5.5.1"        , "1.5.6"         ,  "1.5.6.2"        ,
 "1.5.6.2.1"      , "1.5.6.4"       ,  "1.5.6.5.4"      , "1.5.6.5.4.3"   ,  "1.6.1.1"        ,
 "1.6.1.5"        , "1.6.2"         ,  "1.6.2.2.2"      , "1.6.2.3.2"     ,  "1.6.2.3.2.2.1"  ,
 "1.6.2.3.2.3"    , "1.6.2.3.3"     ,  "1.6.2.3.4"      , "1.6.2.3.4.1.2.1", "1.6.2.3.4.1.3"  ,
 "1.6.2.3.4.3"    , "1.6.2.3.5"     ,  "1.6.2.3.5.1.1"  , "1.6.2.3.5.2"   ,  "1.6.2.3.6"      ,
 "1.6.2.3.6.2.1"  , "1.6.3"         ,  "1.6.3.1.2.2"    , "1.6.3.2.1"     ,  "1.6.4"          ,
 "1.6.4.3"        , "1.6.4.4"       ,  "1.6.5"          , "1.6.6"         ,  "1.6.7"          ,
 "1.6.7.1.5"      , "1.6.7.2.1"     ,  "1.6.7.2.1.1"    , "1.6.7.2.2.1"   ,  "1.6.7.2.2.2"    ,
 "1.6.7.2.2.3"    , "1.6.7.2.3"     ,  "1.6.7.2.5"      , "1.6.7.2.6.2"   ,  "1.6.7.2.7"      ,
 "1.6.7.3.1"      , "1.6.7.3.2.1"   ,  "1.7.1.1.2"      , "1.7.1.2.1"     ,  "1.7.1.3"        ,
 "1.7.2"          , "1.7.3.1"       ,  "1.7.3.2"        , "1.7.4"         ,  "1.7.5"          ,
 "1.7.5.2.2"      , "1.7.5.4"       ,  "1.7.6.1.1"      , "1.7.6.2.1.1"   ,  "1.7.7.1.1.2.1.1",
 "1.7.7.1.1.2.1.3", "1.7.7.1.5"     ,  "1.7.7.1.5.1.1"  , "1.7.7.1.5.2"   ,  "1.7.7.2"        ,
 "1.7.7.2.2"      , "1.7.7.2.2.1"   ,  "1.7.7.2.2.2"    , "1.7.7.4.1"     ,  "1.7.7.4.2.1.1"  ,
 "1.7.7.4.2.2"    , "1.7.7.4.4"     
)

objects.latest("Op_en3861", code_name="makeGraph2") # [[Insight network]] makeGraph
objects.latest("Op_en2382", code_name="update") # [[Discussion]] update_truth, update_relevance, infer_tree

preprocess_arguments <- function(
  FILE_PATH, # Name of zip file at Opasnet
  file_list, # List of filenames in the zip file
  n, # Number of file to pick for argument analysis
  TRUTH_PRIOR = 0.3, # prior truth value without other information
  TRUTH_PRIOR_WITH_REFERENCE = 0.7, # prior truth value with credible reference
  SENSITIVITY_PRIME = 0.3, # sensitivity defend value without other information
  SENSITIVITY_PRIME_ATTACK = -0.5 # sensitivity attack value without other information
) {
  dfl <- opasnet.data(FILE_PATH, "opasnet_fi", unzip=file_list[n])
  dfl <- strsplit(dfl, "\n")[[1]]
  df_title <- gsub("Discussion Title: ", "", dfl[1])
  dfl <- dfl[-(1:2)]
  df <- data.frame(level = regexpr("\\. ",dfl))
  df$Item = substr(dfl,1,df$level-1)
  df$colour = toupper(substr(dfl,df$level+2,df$level+4))
  df$colour[1] <- "Value"
  df$text = substr(dfl,ifelse(df$level==2,4,df$level+7),999)
  df$level <- nchar(gsub("[0-9]","", df$Item))
  df$Object <- gsub("\\.[0-9]*$","", df$Item)
  df$seprime <- SENSITIVITY_PRIME * ifelse(df$colour=="PRO",1,-1)
  df$truth <- ifelse(grepl("http", df$text), TRUTH_PRIOR_WITH_REFERENCE, TRUTH_PRIOR)
  if(!"class" %in% colnames(df)) df$class <- "truth"
  df$class[1] <- "fact"
  
  return(list(df_title, df))
}

prepare_graph <- function(
  df = df,
  drop_gray = TRUE, # Drop gray branches?
  drop_higher_levels = 0, # Drop higher levels (0: drop nothing)?
  RELEVANCE_LIMIT = 0.2, # value below which argument is considered irrelevant and dropped from graph
  TRUTH_LIMIT = 0.05, # value below which argument is considered untrue and dropped from graph
  verbose=FALSE
) {
  df$edge.penwidth <- abs(df$seprime*15)
  df$node.width <- df$truth
  df$node.fontsize <- df$truth*20
  df$node.color <- ifelse(df$class=="truth","orange","blue")
  df$Context <- "Koronakide"
  df$label <- substr(df$text, 1,30)
  df$rel <- ifelse(toupper(df$colour)=="PRO","relevant defense","relevant attack")
  df$rel <- paste0(ifelse(abs(df$seprime) < RELEVANCE_LIMIT, "ir", ""), df$rel)
  df$type <- "argument"
  df$type <- ifelse(df$class %in% c("value","fact"), paste(df$class,"opening statement"), df$type)
  df$Description <- df$text
  drop <- df$Item[(df$truth<TRUTH_LIMIT | abs(df$seprime)<RELEVANCE_LIMIT) & df$level>0]
  if(verbose) print(drop)
  out <- character()
  tmp <- drop
  for(i in sort(na.omit(drop))) {
    branch <- tmp[grep(paste0("^",i), tmp)]
    if(length(branch)>0) {
      if(verbose) print(branch)
      out <- c(out, branch[1])
      tmp <- tmp[!tmp %in% branch[-1]]
    }
  }
  drop <- out
  if(verbose) print(drop)
  df$node.fillcolor <- "white"
  for(i in drop) {
    df$node.fillcolor = ifelse(grepl(paste0("^",i), df$Item), "gray", df$node.fillcolor)
  }
  if(drop_gray) df <- df[df$node.fillcolor!="gray" | df$Item %in% drop ,]
  if(drop_higher_levels>0) df <- df[df$level<drop_higher_levels,]
  return(df)
}

if (!exists("formatted")) {
  objects.latest("Op_en3861", code_name = "formatted")
}
if (!exists("chooseGr")) {
  objects.latest("Op_en3861", code_name = "chooseGr")
}

file_list <- c(
 "are-tracking-apps-a-legitimate-and-proportional-means-to-fight-covid-19-36145.txt"                ,
 "do-people-have-a-right-to-not-wear-a-mask-in-public-spaces-during-the-covid-19-pandemic-38770.txt",
 "do-we-need-a-vaccine-to-fight-the-covid-19-pandemic-38268.txt"                                    ,
 "do-we-need-a-vaccine-to-fight-the-covid-19-pandemic-38268(1).txt"                                 ,
 "education-will-never-be-the-same-as-it-was-before-covid-19-43590.txt"                             ,
 "is-covid-19-more-dangerous-than-regular-flu-viruses-34602.txt"                                    ,
 "is-herd-immunity-for-covid-19-achievable-39248.txt"                                               ,
 "is-it-wrong-to-have-a-lockdown-for-covid-19-36981.txt"                                            ,
 "should-a-global-curfew-be-introduced-to-stop-covid-19-34523.txt"                                  ,
 "should-countries-have-closed-their-borders-to-china-to-reduce-the-spread-of-covid-19-33660.txt"   ,
 "should-covid-19-vaccines-be-mandatory-39517.txt"                                                  ,
 "should-schools-close-during-the-covid-19-pandemic-44845.txt"                                      ,
 "should-vaccine-passports-be-mandatory-49452.txt"                                                  ,
 "will-covid19-bring-lasting-environmental-changes-34939.txt"                                       ,
 "will-the-covid-19-pandemic-have-a-lasting-impact-on-society-34267.txt"        
)

df <- preprocess_arguments(
  FILE_PATH =  "e/eb/Covid-19_dicussions.zip", # "~/discussion/corona/"
  file_list = file_list,
  n=11,
  TRUTH_PRIOR = 0.3,
  TRUTH_PRIOR_WITH_REFERENCE = 0.7,
  SENSITIVITY_PRIME = 0.3,
  SENSITIVITY_PRIME_ATTACK = -0.5
)

if(df[[1]]=="Should COVID-19 Vaccines be Mandatory?") {
  df[[2]]$class[df[[2]]$Item %in% relevants] <- "relevance"
}
gr <- makeGraph(
  ova=prepare_graph(
    df=infer_tree(df[[2]]),
    drop_gray = TRUE,
    drop_higher_levels = 0,
    TRUTH_LIMIT = 0.2,
    RELEVANCE_LIMIT = 0.2,
    verbose=FALSE),
  formatted=formatted)
render_graph(gr, title=df[[1]])

#export_graph(gr, "~/home/jouni/Documents/Koronakide.svg")

#out <- prepare_graph(
#  df=infer_tree(df[[2]]),
#  drop_gray = TRUE, drop_higher_levels = 3, TRUTH_LIMIT = 0.1, RELEVANCE_LIMIT = 0.2, verbose=FALSE)

#df_default <- infer_tree(df)
#df_no_relevance <- infer_tree(df %>% mutate(class="truth"), SENSITIVITY_PRIME, TRUTH_PRIOR)
#plot(df_default$truth, df_no_relevance$truth)
# The correlation between inference with truth/relevance classification and that without is not great.
# However, it is reasonable for very high and very low values.
# So, let's try to analyze a large amount of discussions with truth-only setting

Hae kirjanmerkit Firefoxista