source("http://192.38.117.59/~linearpredictors/datafiles/readFever.R")

## Table of fever against fetal deaths.

t <- table(fever$death,
           fever$fever,
           ## dimension name names
           dnn = c("Fetal death","Number of fever episodes")
           )

## Adding labels to the margins of the table
rownames(tableContent) <- c("No","Yes")
colnames(tableContent) <- c("0","1","2","3+")
addmargins(tableContent, FUN=list(Total = sum), quiet=TRUE)