# carico il pacchetto
library(pivottabler)

# dati
data(SLID, package = "carData")

# metodo veloce, formato testo
qpvt(SLID, "language", "sex", "n()")

# metodo veloce, formato html
qhpvt(SLID, "language", "sex", "n()")

# metodo veloce, formato latex
qlpvt(SLID, "language", "sex", "n()")

# da formato testo a dataframe per esportazione
pt <- qpvt(SLID, "language", "sex", "n()")
pt$asDataFrame()