Sumário

1 - Objetivo:

No tema Teoria da Estimação, dar exemplos de Método dos Momentos, Método da Máxima Verossimilhança e Estimador de mínimos quadrados.

2 - Método dos Momentos para Normal

2.1 - Exemplo 1:

Suponha que \(X_1, \dots, X_n\) são iid \(n(\theta, \sigma^2)\). Na notação anterior, \(\theta_1 = \theta\) e \(\theta_2 = \sigma^2\). Temos \(m_1 = \bar{X}, \, m_2 = \frac{1}{n}\sum X_i^2, \, \mu_1 = \theta, \, \mu_2 = \theta^2 + \sigma^2\), e precisamos resolver \[ \bar{X} = \theta, \quad \frac{1}{n} \sum X_i^2 = \theta^2 + \sigma^2. \]

Resolvendo para \(\theta\) e \(\sigma^2\) obtemos os estimadores pelo método dos momentos \[ \hat{\theta} = \bar{X} \quad \text{e} \quad \hat{\sigma}^2 = \frac{1}{n} \sum X_i^2 - \bar{X}^2 = \frac{1}{n} \sum (X_i - \bar{X})^2. \]

Neste exemplo simples, a solução pelo método dos momentos coincide com nossa intuição e talvez dê alguma credibilidade a ambos. O método é de certa forma mais útil, no entanto, quando nenhum estimador óbvio sugere a si mesmo.

O código a seguir gera uma amostra aleatória de 100 valores a partir de uma distribuição normal com média theta = 5 e variância sigma_squared = 2. Depois, calcula dois estimadores usando o método dos momentos:

Estimador de theta (θ̂1): é a média amostral. Estimador de sigma^2 (σ̂^2): é a variância amostral.

# Gerando uma amostra de dados (simulação para fins de exemplo)
set.seed(123) # Para reprodutibilidade
n <- 100
theta <- 5
sigma_squared <- 2
sample_data <- rnorm(n, mean = theta, sd = sqrt(sigma_squared))

# Método dos Momentos
theta_hat <- mean(sample_data)  # Estimador para theta (média da amostra)
sigma_squared_hat <- mean((sample_data - theta_hat)^2)  # Estimador para sigma^2 (variância da amostra)

# Resultados
cat("Estimador de theta (θ̂1):", theta_hat, "\n")
cat("Estimador de sigma^2 (σ̂^2):", sigma_squared_hat, "\n")

Para este caso, aqui estão os resultados aproximados esperados:

Estimador de theta (θ̂1): 4.961977 
Estimador de sigma^2 (σ̂^2): 1.827586

3 - Método dos Momentos para Binomial

3.1 - Exemplo 2:

Sejam \(X_1, \dots, X_n\) iid binomial(\(k, p\)), isto é, \[ P(X_i = x | k, p) = \binom{k}{x} p^x (1 - p)^{k - x}, \quad x = 0, 1, \dots, k. \]

Aqui assumimos que tanto \(k\) quanto \(p\) são desconhecidos e desejamos estimadores pontuais para ambos os parâmetros. (Esta aplicação um tanto incomum do modelo binomial tem sido usada para estimar taxas de crimes para crimes que se sabe ter muitas ocorrências não relatadas. Para tal crime, tanto a taxa real de ocorrência, \(p\), quanto o número total de ocorrências, \(k\), são desconhecidos.)

Igualando os dois primeiros momentos amostrais aos da população, obtemos o sistema de equações \[ \bar{X} = kp, \quad \frac{1}{n} \sum X_i^2 = kp(1 - p) + k^2 p^2, \] o qual agora deve ser resolvido para \(k\) e \(p\). Após um pouco de álgebra, obtemos os estimadores pelo método dos momentos \[ \hat{k} = \frac{\bar{X}^2}{\bar{X} - (1/n) \sum (X_i - \bar{X})^2}. \]

e

\[ \tilde{p} = \frac{\bar{X}}{\bar{k}}. \]

Esse código abaixo gera uma amostra de dados binomiais e aplica o Método dos Momentos para estimar os parâmetros da distribuição binomial, especificamente o número de tentativas k e a probabilidade de sucesso p.

# Gerando uma amostra de dados binomiais (simulação para fins de exemplo)
set.seed(123) # Para reprodutibilidade
n <- 100
k <- 10
p <- 0.3
sample_data <- rbinom(n, size = k, prob = p)

# Método dos Momentos para a distribuição binomial
X_bar <- mean(sample_data)  # Média da amostra
S_squared <- mean((sample_data - X_bar)^2)  # Variância amostral

# Calculando o estimador para k usando o método dos momentos
k_hat <- X_bar^2 / (X_bar - S_squared)

# Calculando o estimador para p
p_hat <- X_bar / k_hat

# Resultados
cat("Estimador de k (k̂):", k_hat, "\n")
cat("Estimador de p (p̂):", p_hat, "\n")

Estimador de p (p̂): 0.3047682

4 - Método da máxima Verossimilhança

4.1 - Exemplo 3: Método da máxima Verossimilhança - EMV de \(\mu\) de uma normal

Seja uma amostra aleatória \(X_1, X_2, \dots, X_n\) de uma normal com média \(\mu\) e variância \(1\). Vamos determinar o estimador do parâmetro \(\mu\) pelo método de máxima verossimilhança. A função de log-verossimilhança pode ser dada por:

\[ l(\mu; x) = \log \left( \prod_{i=1}^{n} \frac{1}{\sqrt{2 \pi}} e^{-\frac{(x_i - \mu)^2}{2}} \right) \]

\[ = \log \left( \frac{1}{\sqrt{2 \pi}} \right)^{n/2} e^{-\frac{\sum_{i=1}^{n} (x_i - \mu)^2}{2}} \]

\[ = \frac{n}{2} \log \left( \frac{1}{2 \pi} \right) - \frac{\sum_{i=1}^{n} (x_i - \mu)^2}{2}. \]

Tomando a primeira derivada em relação a \(\mu\), temos

\[ 0 = \frac{d}{d\mu} l(\mu; x) = \frac{\sum_{i=1}^{n} (x_i - \hat{\mu})}{2}. \]

Isolando \(\hat{\mu}\), segue que

\[ \hat{\mu} = \frac{\sum_{i=1}^{n} X_i}{n} = \bar{X}. \]

Para verificar se \(\hat{\mu}\) é um estimador de máxima verossimilhança, calculemos a segunda derivada da log-verossimilhança, isto é,

\[ \frac{d^2}{d\mu^2} l(\mu; x) = -\frac{n}{2} < 0. \]

Como \(\hat{\mu}\) é um ponto de máximo, logo, é um estimador de máxima verossimilhança.

4.2 - Exemplo 4: Método da máxima Verossimilhança - EMV de \(p\) de uma distribuição Bernoulli

Seja \(X_1, X_2, \dots, X_n\) uma amostra aleatória de uma distribuição Bernoulli de parâmetro \(p\), então um estimador de máxima verossimilhança de \(p\) pode ser obtido a partir da função de verossimilhança dada por: \[ L(p; x) = \prod_{i=1}^{n} p^{x_i} (1 - p)^{1 - x_i} \] \[ = p^{\sum_{i=1}^{n} x_i} (1 - p)^{\sum_{i=1}^{n} (1 - x_i)} \] \[ = p^{\sum_{i=1}^{n} x_i} (1 - p)^{n - \sum_{i=1}^{n} x_i}. \]

A função de log-verossimilhança será mais fácil, para determinarmos o estimador pontual de \(p\) que segue, \[ l(p; x) = \log \left( p^{\sum_{i=1}^{n} x_i} (1 - p)^{n - \sum_{i=1}^{n} x_i} \right) \] \[ = \log(p) \sum_{i=1}^{n} x_i + \left( n - \sum_{i=1}^{n} x_i \right) \log(1 - p) \] \[ = \log(p) \sum_{i=1}^{n} x_i + n \log(1 - p) - \log(1 - p) \sum_{i=1}^{n} x_i. \]

Derivando (9.9) em relação a \(p\) e igualando a zero, temos \[ 0 = \frac{\sum_{i=1}^{n} x_i}{\hat{p}} + \frac{n}{1 - \hat{p}} - \frac{\sum_{i=1}^{n} x_i}{1 - \hat{p}} \] \[ = (1 - \hat{p}) \frac{\sum_{i=1}^{n} x_i + n \hat{p} - \hat{p} \sum_{i=1}^{n} x_i}{\hat{p}(1 - \hat{p})} \] \[ = (1 - \hat{p}) \sum_{i=1}^{n} x_i + n \hat{p} - \hat{p} \sum_{i=1}^{n} x_i \] \[ = n \sum_{i=1}^{n} x_i + n \hat{p}. \]

Logo, \(\hat{p} = \bar{X}\). Verificando se \(\hat{p}\) é um ponto de máximo, calculamos a segunda derivada da função de log-verossimilhança com relação a \(p\), isto é, \[ \frac{d^2 l(p; x)}{d p^2} = -\frac{\sum_{i=1}^{n} x_i}{p^2} - \frac{\left(n - \sum_{i=1}^{n} x_i\right)}{(1 - p)^2} < 0, \] uma vez que \(0 < p < 1\), e \(0 \leq \sum_{i=1}^{n} x_i \leq n\). Considerando que \(\hat{p}\) é um ponto de máximo, logo é um estimador de máxima verossimilhança.

5 - Estimador de mínimos quadrados de MRLS

Sejam os valores \(\hat{\beta}_0\) e \(\hat{\beta}_1\), que minimizam \(\sum_{i=1}^n \epsilon_i^2 = \sum_{i=1}^n (Y_i - \beta_0 - \beta_1 X_i)^2\) é igual a \[ \hat{\beta}_0 = \overline{Y} - \hat{\beta}_1 \overline{X}, \] e \[ \hat{\beta}_1 = \frac{\sum_{i=1}^n Y_i X_i - \frac{\sum_{i=1}^n Y_i \sum_{i=1}^n X_i}{n}}{\sum_{i=1}^n X_i^2 - \left(\frac{\sum_{i=1}^n X_i}{n}\right)^2}. \] respectivamente. Então \(\hat{\beta}_0\) e \(\hat{\beta}_1\) são os estimadores de mínimos quadrados de \(\beta_0\) e \(\beta_1\), respectivamente.

Seja \(\epsilon_i = Y_i - \beta_0 - \beta_1 X_i\) a partir da expressão (11.4), então para minimizar a soma de quadrados dos dos erros ao longo de todos os \(n\) pares \((X_i, Y_i)\), temos \[ Q = \sum_{i=1}^n \epsilon_i^2 = \sum_{i=1}^n (Y_i - \beta_0 - \beta_1 X_i)^2. \] Derivando \(Q\) em relação aos parâmetros \(\beta_0\) e \(\beta_1\), e igualando a zero as funções resultantes, obtemos assim os estimadores de mínimos quadrados. Assim, \[ \frac{\partial Q}{\partial \beta_0} = -2 \sum_{i=1}^n (Y_i - \beta_0 - \beta_1 X_i), \] \[ \frac{\partial Q}{\partial \beta_1} = -2 \sum_{i=1}^n (Y_i - \beta_0 - \beta_1 X_i) X_i. \]

Igualando a zero, teremos o que chamamos de sistema de equações normais (SEN). Assim,

\[ -2 \sum_{i=1}^n (Y_i - \hat{\beta}_0 - \hat{\beta}_1 X_i) = 0, \] \[ -2 \left[ \sum_{i=1}^n Y_i - n \hat{\beta}_0 - \hat{\beta}_1 \sum_{i=1}^n X_i \right] = 0, \] \[ \sum_{i=1}^n Y_i - n \hat{\beta}_0 - \hat{\beta}_1 \sum_{i=1}^n X_i = 0, \] \[ n \hat{\beta}_0 + \hat{\beta}_1 \sum_{i=1}^n X_i = \sum_{i=1}^n Y_i, \]

e

\[ -2 \sum_{i=1}^n (Y_i - \hat{\beta}_0 - \hat{\beta}_1 X_i) X_i = 0, \] \[ \sum_{i=1}^n Y_i X_i - \hat{\beta}_0 \sum_{i=1}^n X_i - \hat{\beta}_1 \sum_{i=1}^n X_i^2 = 0, \] \[ \hat{\beta}_0 \sum_{i=1}^n X_i + \hat{\beta}_1 \sum_{i=1}^n X_i^2 = \sum_{i=1}^n Y_i X_i. \]

As equações (11.6) e (11.7) formam o SEN, \[ \begin{cases} n \hat{\beta}_0 + \hat{\beta}_1 \sum_{i=1}^n X_i = \sum_{i=1}^n Y_i \\ \hat{\beta}_0 \sum_{i=1}^n X_i + \hat{\beta}_1 \sum_{i=1}^n X_i^2 = \sum_{i=1}^n Y_i X_i. \end{cases} \]

Isolando \(\hat{\beta}_0\) na primeira equação do SEN, temos

\[ n \hat{\beta}_0 + \hat{\beta}_1 \sum_{i=1}^n X_i = \sum_{i=1}^n Y_i, \] \[ n \hat{\beta}_0 = \sum_{i=1}^n Y_i - \hat{\beta}_1 \sum_{i=1}^n X_i, \] \[ \hat{\beta}_0 = \frac{\sum_{i=1}^n Y_i}{n} - \hat{\beta}_1 \frac{\sum_{i=1}^n X_i}{n}, \] \[ \hat{\beta}_0 = \overline{Y} - \hat{\beta}_1 \overline{X}. \]

Substituindo esse resultado na segunda equação do SEN, temos

\[ (\overline{Y} - \hat{\beta}_1 \overline{X}) \sum_{i=1}^n X_i + \hat{\beta}_1 \sum_{i=1}^n X_i^2 = \sum_{i=1}^n Y_i X_i, \] \[ \frac{\sum_{i=1}^n Y_i \sum_{i=1}^n X_i}{n} - \hat{\beta}_1 \frac{\sum_{i=1}^n X_i \sum_{i=1}^n X_i}{n} + \hat{\beta}_1 \sum_{i=1}^n X_i^2 = \sum_{i=1}^n Y_i X_i, \] \[ \hat{\beta}_1 \left[ \sum_{i=1}^n X_i^2 - \frac{\left( \sum_{i=1}^n X_i \right)^2}{n} \right] = \sum_{i=1}^n Y_i X_i - \frac{\sum_{i=1}^n Y_i \sum_{i=1}^n X_i}{n}, \] \[ \hat{\beta}_1 = \frac{\sum_{i=1}^n Y_i X_i - \frac{\sum_{i=1}^n Y_i \sum_{i=1}^n X_i}{n}}{\sum_{i=1}^n X_i^2 - \frac{\left( \sum_{i=1}^n X_i \right)^2}{n}}, \] \[ \hat{\beta}_1 = \frac{SP_{XY}}{SQ_X}. \]

Portanto o modelo estimado é dado por:

\[ \hat{Y} = \hat{\beta}_0 + \hat{\beta}_1 X. \]

6 - Referências Bibliográficas: