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

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

# totale con sum
sum(tab1)

# tabelle di frequenza
margin.table(tab1)
addmargins(tab1)

# tabelle di contingenza
tab2 <- table(SLID$language, SLID$sex)
margin.table(tab2)     # totale assoluto (della tabella)
margin.table(tab2, 1)   # marginali di riga (della 1^ variabile)
margin.table(tab2, 2)   # marginali di colonna (della 2^ variabile)

addmargins(tab2)
addmargins(tab2, 1)   # marginali di riga
addmargins(tab2, 2)   # marginali di colonna