Hi @WWhipple,
We don't have your data so can't reproduce your output. However, I assume you are using
the jmv package. Also, you could just use cut-and-paste from the console window to get the tables into, say, a Word document but that won't be very easy to handle and will need a fixed-spaced font to look OK. A better way is to write the tables directly to a Word document; something like this (using the example from help("contTables"):
library(jmv)
data('HairEyeColor')
dat <- as.data.frame(HairEyeColor)
out <- contTables(formula = Freq ~ Hair:Eye, dat)
print(out)
freqs <- as.data.frame(out$freqs) # the table of proportions
chisq <- as.data.frame(out$chiSq) # the table of X² test results
library(dplyr)
library(officer)
my_doc <- read_docx() # Initialise new Word document object
# Add headings and the two saved tables
my_doc <- my_doc %>%
body_add_par("Contingency Table", style = "heading 1") %>%
body_add_table(freqs, style = "table_template") %>%
body_add_par("Chi-squared Results", style = "heading 1") %>%
body_add_table(chisq, style = "table_template")
# Write the object to Word document file.
print(my_doc, target = "~/first_example.docx")
# Open in Word to check contents.
If this is to be a regular job for you, I suggest you learn Rmarkdown to make it much easier and reproducible.
HTH