Select Page

[This article was first published on r on Everyday Is A School Day, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don’t.

I’m now more confident in my understanding of the 95% confidence interval, but less certain about confidence intervals in general, knowing that we can’t be sure if our current interval includes the true population parameter. On a brighter note, if we have the correct confidence interval, it could still encompass the true parameter even when it’s not statistically significant. I find that quite refreshing

I always thought I knew what a confidence interval was until I revisited the topic. There are plenty of great resources out there covering the same material. However, nothing beats learning through trial and error with your own code and simulations. This may be a repetition of materials available on the web.

### What Is Confidence Interval?

Per
Wikipedia:

Informally, in frequentist statistics, a confidence interval (CI) is an interval which is expected to typically contain the parameter being estimated. More specifically, given a confidence level gamma (95% and 99% are typical values), a CI is a random interval which contains the parameter being estimated gamma % of the time. The confidence level, degree of confidence or confidence coefficient represents the long-run proportion of CIs (at the given confidence level) that theoretically contain the true value of the parameter.

### What Does It Actually Mean?

When conducting an experiment, calculating a 95% confidence interval for the treatment effect doesn’t mean there’s a 95% chance that this specific interval contains the true effect. Instead, it means that if you were to repeat the experiment many times, approximately 95% of those confidence intervals would contain the true effect. The 95% confidence level indicates how often the method will produce intervals that capture the true parameter rather than the probability that any single interval captures it. This understanding is essential to accurately interpret a single confidence interval in your study.

It’s important to understand that there is no way to know whether your current confidence interval is part of the 95% that covers the true effect. This can be frustrating, but it’s a limitation of the method.

It is more intuitive to assume that the current confidence interval is one of those 95% that contain the true estimate and interpret it that way. Additionally, the 95% confidence interval coverage does not need to be “significant” to cover the true parameter; it inherently contains if the interval so happens to be one of those 95%.

If you’re still confused, don’t worry! Running simulations and visualizations can provide a clearer explanation. It’s worth noting that confidence intervals are estimated using different techniques, some more accurate than others, but we won’t be covering that here today.

### What If We Know The Truth Of The Population?

library(tidyverse)
library(kableExtra)
library(pwr)

# population parameters
n_pop <- 10^6
placebo_effect <- 0.2
treat_effect <- 0.5
true_y <- treat_effect - placebo_effect

# simulation
set.seed(1)
placebo_pop <- rbinom(n_pop, 1, placebo_effect)
treat_pop <- rbinom(n_pop, 1, treat_effect)

# population dataset
df_pop <- tibble(outcome_placebo=placebo_pop, outcome_treat=treat_pop) |>
mutate(id = row_number())

Let’s set up a world where we know everything! Say, we know for sure whether a treatment works for certain people and won’t for others. Same for placebo. And also sometimes, both treatment and placebo work for certain people or nothing works. With this method, we constructed a world where we know the truth and simulation comes using sampling of this population.

The above code sets up such environment. Let’s run through what they mean.

• n_pop is the total population, in whom the condition we are interested in.
• placebo_effect is set at 20%, meaning there is a probabiliy of successful outcome for 20% of the population if we were to use placebo. This could be that condition just takes time to cure itself, or that there is actual placebo effect.
• treatment_effect is set at 50%, whereby 50% of population will achieve successful outcome when given the treatment.
• We then use rbinom to simulate both effects for ALL population of interest and save it into dataframe called df_pop.

Here the placebo and treatment effects are made up. You can simple change the numbers to create another world. Here you can practice large, moderate, small or no effect.

Let’s take a look what df_pop looks like

df_pop |>
select(id, outcome_placebo, outcome_treat) |>
kable()
id outcome_placebo outcome_treat
1 0 0
2 0 1
3 0 1
4 1 0
5 0 0
6 1 1
7 1 0
8 0 1
9 0 1
10 0 1

id is unique individual. outcome_placebo is the outcome when placebo is given. outcome_treat is outcome when treatment is given. 0 means not successful. 1 means successful. Notice how we have outcome for both placebo and treatment for each individual. Look at id 6 where outcome is successful regardless of treatment and placebo.

There you have it! Your own made up world of finite population where you know what works, what doesn’t. The beauty of this is that we can then sample from this known world where we know exactly what the treatment effect is (not an estimate), a fixed parameter. Hence, there is no reason to calculate confidence interval because it does not make sense to have one.

### Let’s Simulate Multiple RCT

n_cal <- pwr.2p.test(h = ES.h(treat_effect,placebo_effect), power = 0.8, sig.level = 0.05)\$n |> ceiling()

Assuming we want 80% power and alpha of 5%, and effect of 0.6435011 we need 38 per group.

df_full <- tibble(iter=numeric(),sample=numeric(),mean=numeric(),lower=numeric(),upper=numeric(),pval=numeric())

for (j in 1:12) {
df <- tibble(iter=numeric(),sample=numeric(),mean=numeric(),lower=numeric(),upper=numeric(),pval=numeric())

# set.seed(1)
n <- n_cal*2

for (i in 1:100) {
df_sample <- df_pop |>
slice_sample(n = n) |>
rowwise() |>
mutate(random_treatment = sample(0:1,1),
outcome = case_when(
random_treatment == 1 ~ outcome_treat,
TRUE ~ outcome_placebo
))

treat <- df_sample |>
filter(random_treatment == 1) |>
pull(outcome)

placebo <- df_sample |>
filter(random_treatment == 0) |>
pull(outcome)

ci <- prop.test(x = c(sum(treat),sum(placebo)), n = c(length(treat),length(placebo)), correct = F)
mean <- mean(treat) - mean(placebo)
# lower <- mean - 1.96*sqrt(mean*(1-mean)/n) #wald, let's use wilson instead
lower <- ci\$conf.int[1]
upper <- ci\$conf.int[2]
pvalue <- ci\$p.value
# upper <-  mean + 1.96*sqrt(mean*(1-mean)/n) #wald, let's use wilson instead
df <- df |>
}
df_full <- df_full |>

}

Let’s break down the code above:

• Create an empty dataframe called df_full
• Run 2 for loops
• 1st for loop -> 12 sets (these are sets of trials)
• 2nd for loop -> 100 trials per set (each trial means one experiment)
• Set n for total of 2 times of calculated number needed for power of 80% and alpha of 5%
• Sample 2xn of the population
• Assign randomly placebo or treatment for each individual, then select outcome accordingly
• Use prop.test for test of equal or given proportions
• extract average treatment effect
• extract confidence interval (uses
Wilson’s score method)
• extract p-value (this is more to showcase meaning of power)
• Append dataframe
df_full |>
kable()
iter sample mean lower upper pval
1 1 0.3473389 0.1492637 0.5454142 0.0018010
1 2 0.1448864 -0.0569022 0.3466749 0.1746284
1 3 0.2464986 0.0436915 0.4493057 0.0243074
1 4 0.3492723 0.1482620 0.5502827 0.0016048
1 5 0.1842105 -0.0229481 0.3913691 0.0874454
1 6 0.1843137 -0.0384418 0.4070693 0.0913694
1 7 0.3756614 0.1632469 0.5880759 0.0004565
1 8 0.4816355 0.2976731 0.6655978 0.0000116
1 9 0.2437276 0.0518956 0.4355596 0.0104277
1 10 0.1777778 -0.0259180 0.3814736 0.0959556

### Let’s Visualize!

df_full |>
mutate(true_found = case_when(
lower < true_y & upper >  true_y ~ 1,
TRUE ~ 0
)) |>
ggplot(aes(x=sample,y=mean,color=as.factor(true_found))) +
geom_point(size=0.5) +
geom_errorbar(aes(ymin=lower,ymax=upper), alpha=0.5) +
geom_hline(yintercept = true_y) +
geom_hline(yintercept = 0, color = "pink", alpha = 0.5) +
# geom_ribbon(aes(ymin = -0.2, ymax = 0, xmin = 0, xmax = 101), fill = "pink", alpha = 0.3) +
ylab("Average Treatment Effect") +
xlab("Trials") +
ggtitle(label = "Visualizing 95% Confidence Intervalssss", subtitle = "CI contains true estimate (torquoise), CI does not contain true estimate (red), nfaceted by sets of trials") +
theme_minimal() +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.position = "none") +
facet_wrap(.~iter)

Let’s see what is going on here:

• Create a new column true_found
• If the lower and upper, remember these are 95% CI, contain the true parameter (true_y) then throw a 1, else 0
• Create ggplot
• x-axis: 1 to 100 trials
• y-axis: Average Treatment Effect
• errorbar: lower and upper 95% CI
• Color torquoise: 95%CI contain true treatment effect
• Color red: 95%CI does not contain true treatment effect
• Horizontal black line: True treatment effect of the population
• Horizontal pink line: Zero treatment effect, any trials with 95%CI crosses this will have p-value >= 0.05

This is quite fascinating! It is approximately true that ~95% (to be exact 93.75) of the confidence intervals contain the true parameter (treatment effect).

Also note that there are quite a few trials were not able to correctly reject the null hypothesis, 19.8333333% to be exact. Does that look familiar? It’s beta, isn’t it? If we flipped it around, the proportion of trials that correctly rejected the null hypothesis were 80.1666667%, which is essentially our power!

### Final Thoughts/Lessons Learnt

• Guide to Effect Sizes and Confidence Intervals, Highly recommended! I think, is going to be a great resource in the fundamentals of effect size and confidence interval. I’ll keep my eye on this as it develops into a living document!
• Confidence Intervals for Discrete Data in Clinical Research is also a great book diving deep into estimating confidence intervals using different formulae.
• It dawned on me that we can never be certain whether our current confidence interval, whether significant or not, contains the true parameter. It is only useful if we assume, our current confidence interval, is one of the approximately 95% of intervals that do contain the true parameter.
• Correct me if I’m wrong, one of the more positive note of confidence interval, if we have the “right” one, whether it crosses zero or not (e.g. accept the null), may still contain one of the true parameter. I found this suprisingly positive!
df_full |>
mutate(true_found = case_when(
lower < true_y & upper >  true_y ~ 1,
TRUE ~ 0
)) |>
filter(true_found == 1, pval >= 0.05)

Take a look at iter 1, sample 21. Even though the ATE estimate is off & failed to correctly reject the null hypotehsis, the CI still contains the true parameter (which is 0.3), which to me is quite fascinating!

• Finally, should we rename confidence interval to something else less confusing? Maybe it’s just me.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you’re looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don’t.

## Understanding Confidence Intervals: Analysis and Implications

Confidence intervals (CIs) are an essential part of inferential statistics and hypothesis testing. They provide a range within which the true population parameter is likely to lie. However, understanding a CI’s meaning can be quite challenging, especially considering the standard ‘95% confidence interval.’

## Confidence Intervals Defining the Unknown

In frequentist statistics, a 95% confidence interval means that if you repeat an experiment multiple times, approximately 95% of the resulting confidence intervals would contain the true effect. Understanding this can sometimes be confusing since it doesn’t imply that a specific interval has a 95% chance of containing the true effect. Nonetheless, acknowledging this limitation is crucial to correctly interpret confidence intervals in any study.

Furthermore, it’s tempting, and albeit more intuitive to assume that the present interval belongs to the 95% capture range. Therefore, accurately interpreting a CI involves considering the interval as potentially containing the true estimate, despite statistical significance. Visualization techniques and simulations help clarify this concept.

## Simulation and Confidence Intervals

Simulating experiments where the true population parameter is known provides insight into CIs’ interpretation. Such simulations reveal exciting findings, including how often your confidence intervals include the actual population parameter. More intriguingly, even predicted effects far from the true value can still have their confidence intervals encompassing the actual parameter. These simulations allow researchers to assess the precision of their estimates better.

• Continual Learning: Always strive to understand statistical concepts like confidence intervals further. They may seem straightforward initially, but their exact implications are more nuanced.
• Practical Implementation: Use coding and simulations to grasp these complex topics more accurately by seeing them in action.
• Interpretation Skills: Develop skills to interpret confidence intervals accurately in relation to their respective studies or experiments. Understanding that statistical significance doesn’t guarantee the capture of the true parameter is critical.

## Future Implications

In the long term, this interpretation of confidence intervals could alter how we understand statistical data. The realization that a current interval might not necessarily contain the true parameter may lead to a shift in inferential statistics. There could be an increased focus on techniques that attempt to account for or minimize uncertainty further. Understanding the limitations of our current methods and refining them could lead to more accurate scientific research, forecasting, and decision-making across various disciplines.

### Potential Developments

1. Statistical Literacy: As these nuances become more widely understood, there could be a push for improvements in statistical education, primarily concerning study interpretation.
2. New Techniques: This understanding could inspire the development of additional or refined statistical techniques, designed to better account for the fundamental uncertainty that confidence intervals depict.
3. Cross-disciplinary Impact: As professions across sectors become more data-driven, this nuanced understanding of confidence intervals may alter how professions outside traditional data fields interpret studies and make decisions.