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 > 6, (w + n) - 6, 0))) > sort(fut[!format(fut, '%w') %in% c(6, 0)]) -- Kniven skärpes bara mot stenen. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.