Tengo un marco de datos "mydata" que consta de 2 columnas: una columna de fecha y una columna de valor. Me gustaría agregar columnas al marco de datos que son promedio móvil de la columna "valor" en varias ventanas.

Actualmente mydata tiene 2 columnas

Column 1 - date
Column 2 - value

Me gustaría que la columna 3 sea un promedio móvil de 2 períodos de la columna de valor, la columna 4 sea un promedio móvil de 3 períodos de la columna de valor, etc. hasta que la última columna sea un promedio móvil de 9 períodos

así que me gustaría agregar estas columnas:

Column 3 - SMA(value, 2)
Column 4 - SMA(value, 3)
Column 5 - SMA(value, 4)
Column 6 - SMA(value, 5)
Column 7 - SMA(value, 6)
Column 8 - SMA(value, 7)
Column 9 - SMA(value, 8)
Column 10 - SMA(value, 9)

aquí está el código

library(TTR)
date = seq(as.Date("2016-01-01"),as.Date("2016-01-10"),"day")
value =c(1,2,3,4,5,6,7,8,9,10)
mydata = data.frame (date, value)
z = zoo(value, date)
SMA(z, n=2)# this would be 3rd column of data frame
SMA(z, n=3)# this would be 4th column of data frame

etc .....

gracias.