Probabilidades de cobertura do intervalo básico de confiança de auto-inicialização

11

Tenho a seguinte pergunta para um curso em que estou trabalhando:

Conduza um estudo de Monte Carlo para estimar as probabilidades de cobertura do intervalo de confiança normal de auto-inicialização e do intervalo básico de confiança. Amostra de uma população normal e verifique as taxas de cobertura empírica para a média da amostra.

As probabilidades de cobertura para o IC de inicialização normal padrão são fáceis:

n = 1000;
alpha = c(0.025, 0.975);
x = rnorm(n, 0, 1);
mu = mean(x);
sqrt.n = sqrt(n);

LNorm = numeric(B);
UNorm = numeric(B);

for(j in 1:B)
{
    smpl = x[sample(1:n, size = n, replace = TRUE)];
    xbar = mean(smpl);
    s = sd(smpl);

    LNorm[j] = xbar + qnorm(alpha[1]) * (s / sqrt.n);
    UNorm[j] = xbar + qnorm(alpha[2]) * (s / sqrt.n);
}

mean(LNorm < 0 & UNorm > 0); # Approximates to 0.95
# NOTE: it is not good enough to look at overall coverage
# Must compute separately for each tail

Pelo que aprendi neste curso, o intervalo de confiança básico de autoinicialização pode ser calculado assim:

# Using x from previous...
R = boot(data = x, R=1000, statistic = function(x, i){ mean(x[i]); });
result = 2 * mu - quantile(R$t, alpha, type=1);

Isso faz sentido. O que não entendo é como calcular probabilidades de cobertura para o IC básico de autoinicialização. Entendo que a probabilidade de cobertura representaria o número de vezes que o IC contém o valor verdadeiro (neste caso mu). Simplesmente executo a bootfunção várias vezes?

Como posso abordar essa questão de maneira diferente?

TheCloudlessSky
fonte
Você é size=100um erro de digitação? Não acredito que você esteja obtendo os limites superior e inferior certos, pois o tamanho implícito da amostra parece ser 1000 quando você calcula seus ICs no loop (desde que você use sqrt.no cálculo). Além disso, por que você está comparando mue não 0 diretamente (este último é a verdadeira média)?
cardinal
Além disso, smpl = x[sample(1:n, size = 100, replace = TRUE)]; pode ser simplificado para smpl = sample(x, size=100, replace=TRUE).
cardinal
@ cardinal - Sim, foi um erro de digitação e o mesmo ocorreu com mu0. O IC normal funciona bem, é o IC básico do bootstrap com o qual estou tendo dificuldades.
TheCloudlessSky

Respostas:

16

A terminologia provavelmente não é usada de forma consistente, portanto, a seguir, é apenas como eu entendo a pergunta original. Pelo meu entendimento, os ICs normais que você calculou não foram solicitados. Cada conjunto de réplicas de autoinicialização fornece um intervalo de confiança, não muitos. A maneira de calcular diferentes tipos de IC a partir dos resultados de um conjunto de réplicas de autoinicialização é a seguinte:

B    <- 999                  # number of replicates
muH0 <- 100                  # for generating data: true mean
sdH0 <- 40                   # for generating data: true sd
N    <- 200                  # sample size
DV   <- rnorm(N, muH0, sdH0) # simulated data: original sample

Como desejo comparar os cálculos com os resultados do pacote boot, primeiro defino uma função que será chamada para cada replicação. Seus argumentos são a amostra original e um vetor de índice que especifica os casos para uma única replicação. Ele retorna , a estimativa de plug-in para , bem como , a estimativa de plug-in para a variação da média . Este último será necessário apenas para o bootstrap -CI. u S 2 M σ 2 H tMμSM2σM2t

> getM <- function(orgDV, idx) {
+     bsM   <- mean(orgDV[idx])                       # M*
+     bsS2M <- (((N-1) / N) * var(orgDV[idx])) / N    # S^2*(M)
+     c(bsM, bsS2M)
+ }

> library(boot)                                       # for boot(), boot.ci()
> bOut <- boot(DV, statistic=getM, R=B)
> boot.ci(bOut, conf=0.95, type=c("basic", "perc", "norm", "stud"))
BOOTSTRAP CONFIDENCE INTERVAL CALCULATIONS
Based on 999 bootstrap replicates
CALL : 
boot.ci(boot.out = bOut, conf = 0.95, type = c("basic", "perc", "norm", "stud"))

Intervals : 
Level      Normal            Basic         Studentized        Percentile    
95%   ( 95.6, 106.0 )   ( 95.7, 106.2 )  ( 95.4, 106.2 )   ( 95.4, 106.0 )  
Calculations and Intervals on Original Scale

Sem usar o pacote, bootvocê pode simplesmente usar replicate()para obter um conjunto de réplicas de autoinicialização.

boots <- t(replicate(B, getM(DV, sample(seq(along=DV), replace=TRUE))))

Mas vamos nos ater aos resultados de boot.ci()ter uma referência.

boots   <- bOut$t                     # estimates from all replicates
M       <- mean(DV)                   # M from original sample
S2M     <- (((N-1)/N) * var(DV)) / N  # S^2(M) from original sample
Mstar   <- boots[ , 1]                # M* for each replicate
S2Mstar <- boots[ , 2]                # S^2*(M) for each replicate
biasM   <- mean(Mstar) - M            # bias of estimator M

tα/21α/2boot.ci()

(idx <- trunc((B + 1) * c(0.05/2, 1 - 0.05/2)) # indices for sorted vector of estimates
[1] 25 975

> (ciBasic <- 2*M - sort(Mstar)[idx])          # basic CI
[1] 106.21826  95.65911

> (ciPerc <- sort(Mstar)[idx])                 # percentile CI
[1] 95.42188 105.98103

tttz

# standard normal CI with bias correction
> zCrit   <- qnorm(c(0.025, 0.975))   # z-quantiles from std-normal distribution
> (ciNorm <- M - biasM + zCrit * sqrt(var(Mstar)))
[1] 95.5566 106.0043

> tStar <- (Mstar-M) / sqrt(S2Mstar)  # t*
> tCrit <- sort(tStar)[idx]           # t-quantiles from empirical t* distribution
> (ciT  <- M - tCrit * sqrt(S2M))     # studentized t-CI
[1] 106.20690  95.44878

Para estimar as probabilidades de cobertura desses tipos de IC, você precisará executar essa simulação várias vezes. Apenas envolva o código em uma função, retorne uma lista com os resultados do IC e execute-a replicate()como demonstrado nesta essência .

caracal
fonte
Uau! - Explicação impressionante sobre o que eu estava fazendo de errado. Também - obrigado pelas dicas de código! Isso funciona perfeitamente!
TheCloudlessSky
Ok, uma última pergunta: quando tento replicar essas informações, criei uma função computeCIse liguei results = replicate(500, computeCIs());. No final, computeCIsele retorna c(ciBasic, ciPerc). Para testar as probabilidades de cobertura, não devo testar mean(results[1, ] < 0 & results[2, ] > 0)todos os ICs básicos que contêm a média verdadeira (a probabilidade de cobertura)? Quando executo isso, recebo 1quando penso que deveria 0.95.
TheCloudlessSky
@TheCloudlessSky Para a função completa e simulação completa com os resultados esperados em termos de frequências de cobertura, consulte pastebin.com/qKpNKK0D
caracal
Sim, eu sou um idiota :) Fiz um erro de digitação ao copiar o código em R ... obrigado por toda a sua ajuda! :)
TheCloudlessSky
Obrigado @caracal pela resposta agradável. O link pastebin.com/qKpNKK0Destá quebrado. Gostaria de atualizá-lo e fornecer a função completa e simulação completa. Graças
MYaseen208