install.packages("gapminder")
install.packages("dplyr")
library(gapminder)
library(dplyr)

# Extract life expectancy data
life_data <- gapminder$lifeExp

# Generate 1000 sample means
sample_means <- replicate(2000, mean(sample(life_data, size = 100, replace = TRUE)))

# Visualise
hist(sample_means, main = "Sampling Distribution of Sample Mean", xlab = "Mean Life Expectancy")