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

# tabella di frequenza
table(SLID$language)

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

# frequenze relative
tab1 / sum(tab1)

# prop.table e round
prop.table(tab1) 
round(prop.table(tab1), digits = 2)

# percentuali
prop.table(tab1)*100
round(prop.table(tab1)*100, digits = 2)