# Assegna un valore a Tot; se batti Perc(...) hai
# il rapporto .../Tot*100
Tot <- 1570; k <- 100/Tot
Perc <- function(dato) dato*k