Forcing end of quarter date for as.Date (as.yearqtr ())

Question

Forcing end of quarter date for as.Date (as.yearqtr ())

as.yearqtr () from the package zoo

appears to use the start of the quarter:

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

# [1] "2015-04-01"

How can I grab the end of the block instead?

x

# [1] "2015-06-30"

Thank!

+3

r zoo

emehex 13 jul. 15 at 18:56

source to share

2 answers

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

gives you the next quarter. as.Date

gives you the first day of the next quarter. -1

returns the last day of the original quarter.

+2

CL. 13 jul. 15 at 19:06

source to share

G. Grothendieck · Accepted Answer · 2015-07-13T19:12:35+0000

Use frac = 1

as shown:

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

giving:

[1] "2015-06-30"

Forcing end of quarter date for as.Date (as.yearqtr ())

More articles: