Inequality Kills: Correlation, with Graph and Least Square, of Gini Coefficient (Inequality) and Infant Death

At a correlation approaching 0.7, the relationship between infant mortality and inequality is quite high. One can argue causality, but the existence of the relationship, and there are others of varying magnitude, is a powerful indictment:

Example Code

 oecdData <- read.table("OECD - Quality of Life.csv", header = TRUE, sep = ",")  
 gini.v <- oecdData$Gini  
 death.v <- oecdData$InfantDeath  
 cor.test(gini.v, death.v)  
 plot(gini.v, death.v, col = "blue", main = "Infant Death v Gini"
 , abline(lm(death.v ~ gini.v))
 , cex = 1.3, pch = 16, xlab = "Gini", ylab = "Infant Death")  

Example Results

 Pearson's product-moment correlation  
 data: gini.v and death.v  
 t = 4.2442, df = 19, p-value = 0.0004387  

 alternative hypothesis: true correlation is not equal to 0  

 95 percent confidence interval:  
  0.3805316 0.8679275  

 sample estimates:  


Example Graph

Sample Data

Popular posts from this blog

Charting Correlation Matrices in R

Neural Networks (Part 4 of 4) - R Packages and Resources

Performance Improvements in R: Vectorization & Memoisation