R Создать последовательность даты каждые кварталы

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)
Tiange Ye