Aggregate by week in R

In R I frequently aggregate daily data (in a zoo) by month, using something like this:

result <- aggregate(x, as.yearmon, "mean", na.rm=TRUE)

Is there a way that I can do this by week?