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