# carico il pacchetto
library(LabRS)

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

# creo la tabella tab1
tab1 <- table(SLID$language)

# percent
percent(tab1)

# con un decimale
percent(tab1, digits = 1)

# tabfreq
tabfreq(SLID$language)
tabfreq(SLID$language, digits = 1, totali = FALSE)


# tabcont: di colonna, con arrotondamento
tabcont(SLID$language, SLID$sex)

# di riga, senza totali, 
tabcont(SLID$language, SLID$sex, 
        margin = 2, digits = 2, totali = F)