Necesito para R sacar la media de un valor teniendo en cuenta los tres días anteriores a la fecha donde me encuentro. Es decir, teniendo esta tabla:

    date unit_sales 
    2013-01-10   1
    2013-01-11   1 
    2013-01-14   1 
    2013-01-18   2 
    2013-01-21   1  
    2013-01-25   1

Me gustaría tener la media de los tres días anteriores a la fecha de la fila. En el caso de que no aparezca no considerarla.

El resultado que esperaría tener sería el siguiente:

    date unit_sales Average
    2013-01-10   1    NA
    2013-01-11   1    1
    2013-01-14   1    1
    2013-01-18   2    NA
    2013-01-21   1    2
    2013-01-25   1    NA

¿Alguien sabe cómo puedo conseguirlo?

Graciasss