Skip to content
Prev 286947 / 398498 Next

fridays date to date

Inelegant, but here's one way:

d1 <- Sys.Date()
d2 <- Sys.Date() + 100

library(lubridate)

d <- seq(d1, d2, by = "day")
d[wday(d)==6]

Michael
On Thu, Mar 1, 2012 at 3:02 PM, Ben quant <ccquant at gmail.com> wrote: