crie um quadro de dados com várias colunas, todas com médias contínuas de janelas diferentes

Eu tenho um quadro de dados "mydata" que é 2 colunas: uma coluna de data e uma coluna de valor. Gostaria de acrescentar colunas ao quadro de dados que estão movendo a média da coluna "valor" em várias janelas.

Atualmente, mydata possui 2 colunas

Column 1 - date
Column 2 - value

Eu gostaria que a coluna 3 fosse uma média móvel de 2 períodos da coluna de valor, a coluna 4 fosse uma média móvel de 3 períodos da coluna de valor, etc. até a última coluna ter uma média móvel de 9 períodos

então eu gostaria de adicionar estas colunas:

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)

aqui está o 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 .....

obrigado.