Calculating the Moving Average of a Data Table with Multiple Columns in R Using Zoo and Dplyr