data(SLID, package = "carData")
table(SLID$language, SLID$sex)

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

# frequenze relative
prop.table(tab1) 

# di riga
prop.table(tab1, margin = 1)

# di colonna
prop.table(tab1, margin = 2)

# percentuali
prop.table(tab1) * 100

# di colonna, con arrotondamento
round(prop.table(tab1, margin = 2) * 100, digits = 1)

# percent
library(LabRS)
percent(tab1)
percent(tab1, margin = 2, digits = 1)