x <- rbinom(100, size=2, p=0.1)
y <- rbinom(100, size=2, p=0.1)
## try these in an R markdown document for best results
kTable(x)
my_table <- kTable(x, y, top.left.cell="foo", left.label="bar", top.label="baz")
pxt( my_table )
Run the code above in your browser using DataLab