Couple of days ago @rajeevnath had linked to a data set of violence against women in India as of 2011. Here’s the limited data set that I was much interested – csv

The data lists state wise numbers of incidences of rape and cruelty against women by Husband and relatives. I just wanted to study whether the two were correlated. 

R Code:

mydata = read.csv(“Violence.against.women.csv”)

mydata

summary(mydata)

png(“boxplot1.png”,400,300)

boxplot(mydata$Incidence.of.Rape, mydata$cruelty.by.husbands.and.relatives, names=c(“Incidence of Rape”,“Cruelty by Husbands & Relatives”), col=c(“red”,“blue”), xlab= “Incidence of Rape”, ylab= “Cruelty by Husbands & Relatives”)

graphics.off()

cor(mydata$Incidence.of.Rape, mydata$cruelty.by.husbands.and.relatives)

Turns out to be  0.7141019 indicating a positive correlation. 

 Prolly more incidences of rape where people related to the married women are more cruel towards her.