On Mon, 07 Apr 2014, Christofer Bogaso <bogaso.christo...@gmail.com> writes:
> Hi,
>
> Given a month name, I am looking for some script to figure out, what is the
> date for 3rd Wednesday. For example let say I have following month:
>
> library(zoo)
> Month <- as.yearmon(as.Date(Sys.time()))
>
> I need to answer: What is the date for 3rd Wednesday of 'Month'?
>
> Really appreciate for any pointer.
>
> Thanks for your time.
>
There is a function 'lastWeekday' in the PMwR package, which will
compute the last weekday -- Wednesday, say -- in a given month.
(Disclosure: I am the package author.) For example
lastWeekday(3, Sys.Date())
produces "2014-04-30", which is the last Wednesday of the current month.
To get the third Wednesday of a given month, you can do this:
lastWeekday(3, endOfPreviousMonth(Sys.Date()), shift = 3)
or, for example, for the third Friday of September 2012:
lastWeekday(5, endOfPreviousMonth(as.Date("2012-09-01")), shift = 3)
##"2012-09-21"
That is, you first find the last particular weekday of the previous
month, and then shift forward 3 weeks.
However, PMwR is not on CRAN; it's available from here
http://enricoschumann.net/R/packages/PMwR/index.htm
If you are on a Unix-type system (or have Rtools installed on Windows),
you can directly install the package from source:
install.packages('PMwR',
repos = 'http://enricoschumann.net/R',
type = 'source')
Regards,
Enrico
--
Enrico Schumann
Lucerne, Switzerland
http://enricoschumann.net
______________________________________________
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.
