require(gtools)
require(tidyverse)
require(ggforce)
options(kableExtra.latex.load_packages = TRUE)
require(kableExtra)
require(mosaicCalc)
require(gridExtra)
require(numDeriv)
require(DT)
#Para numerar tabelas e figuras:
require(captioner)
fig_nums <- captioner(prefix = "Figura")
table_nums <- captioner(prefix = "Tabela")
quadro_nums<- captioner(prefix="Quadro")
Os métodos Bayesianos têm aplicação em muitas áreas como epidemiologia, bioestatística, engenharia, ciência da computação, entre outros.
Definição 1.1: Partição de um Espaço Amostral Dizemos que os eventos \(A_1,A_2,\ldots,A_n\) formam uma partição do espaço amostral \(\Omega\) se as seguintes propriedades são satisfeitas:
Figura 1: Representação Gráfica de partição de um espaço amostral
Definição 1.2: Classe de eventos do espaço amostral A classe de eventos do espaço amostral \(\Omega\), também chamada de classe de subconjuntos do espaço amostral \(\Omega\), ou Conjunto das partes de \(\Omega\), é o conjunto que contém todos os subconjuntos de \(\Omega\) e é representado por \(\mathcal{P}(\Omega)\).
Conceito de probabilidade A probabilidade é definida numa classe de eventos do espaço amostral, com certas propriedades.
Definição 1.3: Probabilidade é uma função \(P(.)\) que associa a cada evento de \(\mathcal{P}(\Omega)\) (ou subconjunto de \(\Omega\)) um número real pertencente ao intervalo \([0,1]\), satisfazendo aos Axiomas de Kolmogorov
significa que a probabilidade da união de dois ou mais eventos é igual à soma de suas respectivas probabilidades, se os eventos forem mutuamente exclusivos aos pares.
Teorema 1.4: Se os eventos \(A_1, A_2, \ldots, A_n\) formam uma partição do espaço amostral, então: \[ \sum_{i=1}^n P(A_{i})=1. \]
Demonstração: A demonstração vem da definição de partição e dos Axiomas 2 e 3 de Kolmogorov.
Definição 1.5: Probabilidade condicional A probabilidade condicional de \(B\) dado \(A\) é dada pela fórmula: \[ P(B|A) = \frac{P(A \cap B)}{P(A)}, \] sendo que \(P(A)\) deve ser maior do que zero.
Teorema 1.6: Teorema do produto \[ P(A \cap B) = P(A) P(B|A) \text{ e também } P(A \cap B) = P(B) P(A|B). \]
Demonstração: A demonstração vem da definição de probabilidade condicional.
Proposição 1.7: Generalização do Teorema do Produto Sejam \(A_1\), \(A_2\),\(\ldots\), \(A_{n-1}\), \(A_n\) eventos do espaço amostral \(\Omega\), onde está definida a probabilidade \(P\), temos: \[ P(A_1\cap A_2 \ldots \cap A_{n-1}\cap A_n) = P(A_1)P(A_2|A_1)P(A_3|A_1\cap A_2)P(A_n|A1\cap A2 \ldots A_{n-1}). \] Demonstração: A demonstração é através do Princípio da Indução Finita.
Teorema 1.8: Teorema da Probabilidade Total (ou Fórmula da Probabilidade Total): Sejam \(A_1,A_2,\ldots,A_n\) eventos que formam uma partição do espaço amostral. Seja \(B\) um evento deste espaço. \[ P(B) = \sum_{i=1}^n P(A_i)P(B|A_i), \] onde \(A_1, A_2, \ldots A_n\) formam uma partição no espaço amostral.
A fórmula da Probabilidade Total permite calcular a probabilidade de um evento \(B\) a partir das probabilidades de um conjunto de eventos disjuntos cuja reunião é o espaço amostral; e as probabilidades condicionais de \(B\) dado cada um destes eventos são fornecidas.
Demonstração - Passo 1: Como \(A_1, \ldots, A_n\) formam uma partição, então podemos escrever \(B\) da seguinte forma: \[ B = (B \cap A_1) \cup (B \cap A_2) \cup (B \cap A_3) \cup \ldots \cup (B \cap A_n). \]
Figura 2: Representação gráfica do teorema da probabilidade total
Teorema 1.9: Teorema de Bayes (ou fórmula de Bayes):
\[ P(A|B)=\frac{P(B|A)P(A)}{P(B)}. \] Demonstração: A demonstração vem da Definição de probabilidade condicional, Teorema do Produto e Teorema da Probabilidade Total.
Teorema de Bayes - Caso geral \[ P(A_i|B)=\frac{P(A_i)P(B|A_i)}{\sum_{i=1}^n P(A_i)P(B|A_i)}, \] onde \(A_1,A_2,\ldots A_n\) formam uma partição no espaço amostral
Exemplo 1: Exames de diagnóstico não são infalíveis, mas deseja-se que tenha probabilidade pequena de erro. Um exame detecta uma certa doença, caso ela exista, com probabilidade 0,9. Se a doença não existir, o exame corretamente aponta isso com probabilidade 0,8. Considere que estamos aplicando esses exames em uma população com \(10\%\) de prevalência dessa doença. Para um indivíduo escolhido ao acaso, pergunta-se:
Resolução:
Figura 3: Diagrama da árvore
Passo I: Calcular a probabilidade Total - que vai no denominador da probabilidade que queremos:
\[ \begin{array}{lll} P(B)&=&P(B|A) \times P(A)+P(B|A^c) \times P(A^c)\\ &=&0,9 \times 0,1+0,2 \times 0,9 \\ &=&0,27 \end{array} \]
Passo II: Calcular a probabilidade condicional \[ \begin{array}{lll} P(A|B)&=& \frac{P(A \cap B)}{P(B)}\\ &=& \frac{P(B| A) \times P(A)}{P(B)} \text{ , o numerador vem da fórmula do produto} \\ &=& \frac{0,9 \times 0,1}{0,27} = \approx 0,33 = 33\% \end{array} \] - item b) esta probabilidade é dada pela soma: P(+ e o indivíduo ser doente ) + P(- e o indivíduo não ser doente): \[ \begin{array}{lll} P(A \cap B) + P(A^c \cap B^c) &=& P(B|A) \times P(A) + P( B^c|A^c) \times P(A^c) \text{ pela fórmula do produto} \\ &=& 0,9 \times 0,1 + 0,8 \times 0,9 = 0,81 = 81 \% \end{array} \]
Ajuda: sensibilidade do teste: é a probabilidade do teste dar resultado positivo para um indivíduo que tem a doença, especificidade do teste: é a probabilidade do teste dar resultado negativo para um indivíduo que não tem doença, prevalência: é a proporção de pessoas com a doença em certa população de interesse. Em testes diagnósticos, temos interesse em encontrar o teste que possui os maiores valores de sensibilidade e especificidade.