library(tidyverse)library(ggokabeito)d <-tribble(~A, ~B, ~n,"A+", "B+", 75,"A-", "B+", 25,"A+", "B-", 50,"A-", "B-", 50)ggplot(d) +aes(x = B, fill = A, y = n) +geom_col() +scale_fill_okabe_ito()
Lesen Sie folgende Wahrscheinlichkeiten aus dem Diagramm ab:
\(Pr(A)\)
\(Pr(B)\)
\(Pr(AB)\)
\(Pr(BA)\)
\(Pr(B|A)\)
\(Ür(A|B)\)
Hinweise:
Das Ereignis “B tritt ein” ist mit “B+” im Diagramm eingezeichnet (entsprechend für A). Analog ist das Ereignis “B tritt nicht ein” mit “B-” eingezeichnet (entsprechend für A).