Lab-16-ChiSq-Skeleton.R

## Load Packages and Data
library(RVAideMemoire)
library(gmodels)
load()

## Make a Contingency Table
bac.table <- xtabs()
bac.table


## Perform Test using raw data
CrossTable(x = ,
           y = ,
           expected = TRUE,
           chisq = TRUE,
           fisher = TRUE,
           sresid = TRUE,
           format = 'SPSS')



## Perform Test using Contingency Table
CrossTable(x = ,
           expected = TRUE,
           chisq = TRUE,
           fisher = TRUE,
           sresid = TRUE,
           format = 'SPSS')


## Perform Loglikelihood Ratio Test
G.test()