# Simulated data: GDP per capita (thousands USD) by regime type
set.seed(42)
democracies <- c(28, 35, 41, 22, 55, 47, 38, 30, 52, 44, 29, 61, 37, 49,
33, 58, 26, 43, 51, 36)
autocracies <- c(12, 18, 9, 25, 15, 7, 21, 11, 19, 14, 8, 23, 16, 10, 27,
13, 20, 6, 17, 22)
# Run independent samples t-test
t.test(democracies, autocracies, alternative = "two.sided", var.equal = FALSE)
Welch Two Sample t-test
data: democracies and autocracies
t = 8.7705, df = 29.559, p-value = 1.006e-09
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
19.25163 30.94837
sample estimates:
mean of x mean of y
40.75 15.65
