Let me create some data before I ask my question.
my.data <- data.frame(A = sample(seq(1,100,by=5),10,replace=TRUE),W = rnorm(10),X =sample(1:10),Y = sample(
As an alternative, memisc provides toLatex methods for ftable objects.
library(memisc) toLatex(result1)