zoo.data <- zoo(rnorm(31)+10,as.Date(13514:13744,origin="1970-01-01"))
bp <- breakpoints(zoo.data,by=weeks)
period.apply(zoo.data, INDEX=bp, FUN=function(x) sd(x))
period.apply(zoo.data, INDEX=bp, FUN=sd) #same
glue <- function(x) { paste(x,collapse='') }
period.apply(letters,c(0,5,7,26),glue)
Run the code above in your browser using DataLab