Divisi diff r

x <- c(10, 20, 30, 40, 50)
x/lag(x)
marcofaga