Принудительная конец квартальной даты для as.Date (as.yearqtr())

Question

as.yearqtr() из пакета zoo, как представляется, использовать начало квартала:

library(zoo) 
x <- "2015-05-17" 
x <- as.Date(x) 
x <- as.Date(as.yearqtr(x)) 
x 

# [1] "2015-04-01" 

Как я мог бы вместо того, чтобы захватить конец квартала?

x 

# [1] "2015-06-30" 

Спасибо!

Answer 1

Использование frac = 1 как показано:

x <- as.Date("2015-05-17") 
as.Date(as.yearqtr(x), frac = 1) 

дает:

[1] "2015-06-30" 

Answer 2

library(zoo) 

x <- as.Date("2015-05-17") 
x <- as.Date(as.yearqtr(x)+0.25)-1 

x 
# [1] "2015-06-30" 

as.yearqtr(x)+0.25 дает вам следующую четверть. as.Date дает вам первый день в этом следующем квартале. -1 поставляет последний день первоначального квартала.