Create and analyze multiway frequency or weighted frequency table
This function creates a multi-way table of counts
for the response given a set of classifying factors.  Output
facilitates a check on how the factor specified as margin
may, after accounting for other classifying factors, affect the
response.  
excessRisk(form = weight ~ seatbelt + airbag, response = "dead", margin = "airbag", data = DAAG::nassCDS, decpl = 4, printResults = TRUE)
| form | 
 | 
| response | 
 | 
| margin | 
 | 
| data | 
 | 
| decpl | 
 | 
| printResults | if  | 
The best way to understand what this function does may be to run it with the default parameters, and/or with examples that appear below.
The function returns a data frame, with one row for each combination of
levels of factors on the right of the formula, but excluding the
factor specified as margin
|  | Count for level 2 of response \& level 1 of margin | 
|  | Total tount for level 1 of margin | 
|  | Count for level 2 of response \& level 2 of margin | 
|  | Total count for level 2 of margin | 
|  | Proportion; divide count for level 1 of margin by total | 
|  | Proportion; divide count for level 2 of margin by total | 
|  | Excess count for level 2 of response in row; relative to
the assumption that, in that row, there is no association between
 | 
John Maindonald
See help(nassCDS)
xtabs
excessRisk() excessRisk(weight ~ airbag+seatbelt+dvcat) UCB <- as.data.frame.table(UCBAdmissions) excessRisk(Freq~Gender, response="Admit", margin="Gender",data=UCB) excessRisk(Freq~Gender+Dept, response="Admit", margin="Gender",data=UCB)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.