Re: [R] Extracting future and past workday dates

2010-08-06 Thread Sergey Goriatchev
Henrique, that is what I need! Big thanks! Regards, Sergey On Thu, Aug 5, 2010 at 14:56, Henrique Dallazuanna www...@gmail.com wrote: n - 3 w - as.numeric(format(Sys.Date(), '%w')) fut - c(Sys.Date() - 0:(n + ifelse(w - n 6, (w - n) - 6, 0)), Sys.Date() + 1:(n + 1 + ifelse(w + n

Re: [R] Extracting future and past workday dates

2010-08-05 Thread Henrique Dallazuanna
Try this: c(Sys.Date() + 0:3, Sys.Date() - 0:3) or 0:3 %*% matrix(c(1, -1), ncol = 2) + Sys.Date() On Thu, Aug 5, 2010 at 8:36 AM, Sergey Goriatchev serg...@gmail.com wrote: Hello everyone I need to extract a vector of (t-3) to (t+3) dates, only working days. How can I do that? For

Re: [R] Extracting future and past workday dates

2010-08-05 Thread Sergey Goriatchev
Hi, Henrique Thank you for trying, but that is not what I want. You get WEEKdays, I need WORKdays, and preferably sorted in order from future to the past. Best, Sergey On Thu, Aug 5, 2010 at 14:06, Henrique Dallazuanna www...@gmail.com wrote: Try this: c(Sys.Date() + 0:3, Sys.Date() - 0:3)

Re: [R] Extracting future and past workday dates

2010-08-05 Thread David Winsemius
On Aug 5, 2010, at 8:09 AM, Sergey Goriatchev wrote: Hi, Henrique Thank you for trying, but that is not what I want. You get WEEKdays, I need WORKdays, and preferably sorted in order from future to the past. Perhaps you would be pleased to know that there is an is.holiday function in

Re: [R] Extracting future and past workday dates

2010-08-05 Thread Sergey Goriatchev
Thank you David, will check it out, as I use chron and zoo! Regards, Sergey On Thu, Aug 5, 2010 at 14:29, David Winsemius dwinsem...@comcast.net wrote: On Aug 5, 2010, at 8:09 AM, Sergey Goriatchev wrote: Hi, Henrique Thank you for trying, but that is not what I want. You get WEEKdays, I

Re: [R] Extracting future and past workday dates

2010-08-05 Thread Henrique Dallazuanna
Try this: n - 3 w - as.numeric(format(Sys.Date(), '%w')) fut - c(Sys.Date() - 0:(n + ifelse(w - n 6, (w - n) - 6, 0)), Sys.Date() + 1:(n + 1 + ifelse(w + n 6, (w + n) - 6, 0))) sort(fut[!format(fut, '%w') %in% c(6, 0)]) On Thu, Aug 5, 2010 at 9:09 AM, Sergey Goriatchev