trying rollapply with the zoo package