Test 2: Extend pander to also work with CrossTable R objects

pander.CrossTable.R

pander.CrossTable <- function(x, ...) {
 pandoc.table(x$t, caption = 'Observed Count')
 pandoc.table(x$prop.row, caption = 'Row percentages')
 pandoc.table(x$prop.col, caption = 'Column percentages')
  emphasize.strong.cells (which(x$chisq$residuals >  2,arr.ind=T))
  emphasize.strong.cells (which(x$chisq$residuals <  -2,arr.ind=T))
 pandoc.table(x$chisq$residuals, caption = 'Residuals of the Chi-sqaured test')
  paste(c('P-value of the Chi-squared test:',round(x$chisq$p.value,3)))
}