require(carData)
data(SLID)

tab <- table(SLID$language, SLID$sex)

write.table(tab,
            "tab.csv",
            sep = ";",
            dec = ",",
            col.names = NA  # per esportare correttamente le intest. di colonna
)


# PIU' TABELLE IN UN FILE
write.table(tab,
            "tabelle.csv",
            sep = ";",
            dec = ",",
            col.names = NA,
            append = TRUE)

# exptab
library(LabRS)
exptab(list(tab), file = "tab.csv")