ftab <- ftable(Titanic, row.vars = 1:2)
fftab <- fftable(ftab)
tlist <- tablines(fftab)
wrapLaTable(structure(tlist$body, head = tlist$head), align = tlist$align,
caption="The Titanic data set.", label="tab:titanic")Run the code above in your browser using DataLab