Religious beliefs and crime rates

The data national-level summary indicators of public opinion about the existence of heaven and hell as well as the national rate of violent crime.

Usage

data(religioncrime)

Format

data.frame: 51 obs. of 3 variables

Source

Anonymous researcher who claims the data is real.

Author

Paul E. Johnson pauljohn@ku.edu and Anonymous

Examples

require(rockchalk)
data(religioncrime)
mod1 <- lm(crime ~ heaven, data=religioncrime)
mod2 <- lm(crime ~ hell, data=religioncrime)
mod3 <- lm(crime ~ heaven + hell, data=religioncrime)
with(religioncrime,
mcGraph1(heaven, hell, crime)
)

with(religioncrime,
mcGraph2(heaven, hell, crime)
)

mod1 <- with(religioncrime,
mcGraph3(heaven, hell, crime)
)
#> Warning: zero-length arrow is of indeterminate angle and so skipped

summary(mod1[[1]])
#> 
#> Call:
#> lm(formula = y ~ x1 + x2)
#> 
#> Residuals:
#>     Min      1Q  Median      3Q     Max 
#> -0.7323 -0.2515 -0.1160  0.1577  2.0617 
#> 
#> Coefficients:
#>             Estimate Std. Error t value Pr(>|t|)    
#> (Intercept)  -0.7596     0.2123  -3.579 0.000802 ***
#> x1            5.1872     0.7459   6.955 8.63e-09 ***
#> x2           -4.8128     0.7060  -6.817 1.40e-08 ***
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#> 
#> Residual standard error: 0.5305 on 48 degrees of freedom
#> Multiple R-squared:  0.5068,	Adjusted R-squared:  0.4862 
#> F-statistic: 24.66 on 2 and 48 DF,  p-value: 4.294e-08
#> 
##TODO: Draw more with perspective matrix mod1[[2]]