The IQ ~ Religion Matters Vector

I was reminded this morning by an article, New Study: Religious People Are Less Smart but Atheists Are Psychopaths. but realized that there are many studies showing the religious to be less intelligent, but rarely is this ever published. It would 'bite' most of the population, liberal and conservative alike.

Note: I plan on redoing this with more solid numbers, and possibly different measures of religiosity.

Example Code

``````
# Correlations on ReligionMatters and Average IQ
oecdData <- read.table("OECD - Quality of Life.csv", header = TRUE, sep = ",")

iqVector <- oecdData\$IQ
religionMattersVector <- oecdData\$ReligionMatters

cor.test(iqVector, religionMattersVector)

lm1 <- lm(iqVector ~ religionMattersVector)

summary(lm1)

# Plot the chart.
plot(iqVector, religionMattersVector, col = "blue", main = "IQ ~ Religion Matters Vector"
, abline(lm(religionMattersVector ~ iqVector), xlab = "Religion Matters", ylab = "IQ"))

``````

Example Results

``````
Pearson's product-moment correlation

data: iqVector and religionMattersVector
t = -1.2819, df = 20, p-value = 0.2145
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
-0.6245927 0.1652630
sample estimates:
cor
-0.2755443

Call:
lm(formula = iqVector ~ religionMattersVector)

Residuals:
Min   1Q Median   3Q   Max
-5.9762 -2.3543 0.0996 2.5020 7.2956

Coefficients:
Estimate  Std. Error t value  Pr(>|t|)
(Intercept)             101.531   1.902      53.381  <2e-16 ***
religionMattersVector  -5.436     4.241     -1.282    0.215

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 3.36 on 20 degrees of freedom

(2 observations deleted due to missingness)

Multiple R-squared: 0.07592,     Adjusted R-squared: 0.02972

F-statistic: 1.643 on 1 and 20 DF, p-value: 0.2145

``````

Sample Data