cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Murder/Manslaughter","Weapon used towards victim")
cs=as.table(cs)
cs
#show table
cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Murder/Manslaughter","Weapon used towards victim")
cs=as.table(cs)
cs
#calculate test
cor.test(x,y)
library(A3)
library(askpass)
library(assertthat)
library(backports)
library(callr)
library(cellranger)
install.packages("devtool")
install.packages("ggpubr")
#show table
cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Murder/Manslaughter","Weapon used towards victim")
cs=as.table(cs)
cs
#calculate test
cor.test(x,y)
#calculate test
x<-c(42,29,41,35,58,47,39,40,43,46,40,40)
y<-c(39,23,39,33,53,45,33,36,34,45,33,36)
cor.test(x,y)
#show table
cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Murder/Manslaughter","Number of cases with weapon involved" )
cs=as.table(cs)
cs
#calculate test
x<-c(42,29,41,35,58,47,39,40,43,46,40,40)
y<-c(39,23,39,33,53,45,33,36,34,45,33,36)
cor.test(x,y)
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case"
main="Relationship between Number of Murder/Manslaughter
Victims with Number of cases with weapon involved", cex.mail=1, col='coral2')
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case"
main="Relationship between Number of Murder/Manslaughter Victims with Number of cases with weapon involved",
cex.mail=1, col='coral2')
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case"
main="Relationship between Number of Murder/Manslaughter Victims with Number of cases with weapon involved",
cex.main=1, col='coral2')
library(A3)
library(askpass)
library(assertthat)
library(backports)
library(callr)
library(cellranger)
library(classInt)
library(cli)
library(clipr)
library(colorspace)
library(crayon)
library(desc)
library(digest)
library(e1071)
library(ellipsis)
library(evaluate)
library(fansi)
library(glue)
library(highr)
library(hms)
library(jpeg)
library(lifecycle)
library(lmtest)
library(magrittr)
library(markdown)
library(pillar)
library(pkgbuild)
library(pkgconfig)
library(pkgload)
library(plotrix)
library(png)
library(praise)
library(prettyunits)
library(processx)
library(progress)
library(ps)
library(R6)
library(raster)
library(RColorBrewer)
library(Rcpp)
library(readxl)
library(rematch)
library(rgdal)
library(rlang)
library(rprojroot)
library(sys)
library(testthat)
library(tibble)
library(utf8)
library(vctrs)
library(vcd)
library(yaml)
library(boot, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(class, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(cluster, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(codetools, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(compiler, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(foreign, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(KernSmooth, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(lattice, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(MASS, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(Matrix, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(mgcv, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(nlme, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(nnet, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(parallel, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(rpart, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(spatial, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(splines, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(stats4, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(survival, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(tools, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(tcltk, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(translations, lib.loc = "C:/Program Files/R/R-3.6.3/library")
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case"
main="Relationship between Number of Murder/Manslaughter Victims with Number of cases with weapon involved",
cex.main=1, col='coral2')
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case",
main="Relationship between Number of Murder/Manslaughter Victims with Number of cases with weapon involved",
cex.main=1, col='coral2')
#show table
cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Murder/Manslaughter","Number of cases with weapon involved" )
cs=as.table(cs)
cs
#calculate test
x<-c(42,29,41,35,58,47,39,40,43,46,40,40)
y<-c(39,23,39,33,53,45,33,36,34,45,33,36)
cor.test(x,y)
plot(x,y,xlab="Number of Murder/Manslaughter victims", ylab="Weapon used in murder case",
main="Relationship between Number of Murder/Manslaughter Victims with Number of cases with weapon involved",
cex.main=1, col='coral2')
#show table
cs<-matrix(c(42,39,29,23,41,39,35,33,58,53,47,45,39,33,40,36,43,34,46,45,40,33,40,36),
ncol=2,byrow = TRUE)
rownames(cs)<-c("Jan","Feb","March","April","May","June","July","August","Sept","Oct","Nov","Dec")
colnames(cs)<-c("Homicide Case","Number of cases with weapon involved" )
cs=as.table(cs)
cs
#calculate test
x<-c(42,29,41,35,58,47,39,40,43,46,40,40)
y<-c(39,23,39,33,53,45,33,36,34,45,33,36)
cor.test(x,y)
plot(x,y,xlab="Homicide Case", ylab="Number of cases with weapon involved",
main="Relationship between Homicide with Number of cases with weapon involved",
cex.main=1, col='coral2')
#calculate test
x<-c(42,29,41,35,58,47,39,40,43,46,40,40)
y<-c(39,23,39,33,53,45,33,36,34,45,33,36)
cor.test(x,y)
plot(x,y,xlab="Homicide Case", ylab="Number of cases with weapon involved",
cex.main=1, col='coral2')
