### 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.

Example Code

Example Results

Sample Data

**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