# dati
data(ChickWeight)

cumsum(table(ChickWeight$Diet))

table1 <- table(ChickWeight$Diet)
cumsum(table1)

cumsum(rev(table1))

cumsum(table1[4:1])