Creating Trailing Rolling Averages without NaNs at the Beginning of Output in R using Dplyr and Zoo Packages