[R] Transfer Crosstable to Word-Document

[ukoenig at med.uni-marburg.de]

# Dear list,
# I am an R-beginner and
# spent the last days looking for a method to insert tables produced
# with R into a word document. I thought about SPPS:  copy a table from
# an SPO-file and paste it into a word document
# (if needed do some formatting with that table).
# Annother idea was, to produce a TEX-file,
# insert it and make it a word-table.

# I found the following libraries, which seemed to be promising:
# xtable
# prettyR
# R2HTML
# Hmisc
# SciViews / svViews



#######################################################################
## My example: a crosstable (made with CrossTable from lib gmodels ####
#######################################################################

library(gmodels)
library(xtable)
library(svViews)

# Data for crosstabulation
set.seed(1)
n <- 200
sex <- sample(c("f","m"),n,T)
state <- sample(c("AL","AK","CA"),n,T)

#Create crosstab
ct <- CrossTable(state, sex, expected=TRUE, format="SPSS", digits=1)
ct #display crosstab on screen

#Trie to produce a html file
xtable(ct) #Error message: No method!
methods(xtable)



#Try to create a rich formatted table and insert it into Word
#with svViws, but only a little part of crosstab it inserted

docdir <- "r:\\r"
WordOpen(file.path(docdir, "cross.doc"))
viewfile <- view(ct, type = "summary", browse = FALSE)
WordGoto("ctview")
WordInsertFile(viewfile, TRUE) #only a little part of crosstab inserted
WordActivate(async = TRUE)


#How could I create the latex-code for the crosstable?
w <- latex(ct) #would that work?

# I could not test this, because I didn´t install Miktex yet
# (I will do this soon)

Can someone help me?

Thanks in advance
Udo


------------------------------
Udo Koenig
Clinic for child and adolescent psychiatry
University of Marburg / Germany