library(zoo) from <- as.Date('1980-12-31') to <- as.Date('1985-06-30') yq <- seq(as.yearqtr(from), as.yearqtr(to), by = 1/4) as.Date(yq, frac = 1)