John Putz wrote:
> Thanks.
>  
> */
> email: /**/johnputz3655@yahoo.com/* <mailto:johnputz3655@yahoo.com>
> */home: 206-632-6522
> cell: 206-910-5229/*
>
>
> ----- Original Message ----
> From: Joe W. Byers <ecjbosu@aol.com>
> To: John Putz <johnputz3655@yahoo.com>
> Cc: r-sig-finance@stat.math.ethz.ch
> Sent: Friday, December 7, 2007 9:26:29 PM
> Subject: Re: holidayNYSE missing some
>
>
> John Putz wrote:
> > The correct behavior is to shift the holiday to Friday (from Sat) or 
> to Monday (from Sun).  I'm not actually using this for NYSE holidays 
> but for power industry holidays and made a version to handle those 
> changes as well as some other idiosyncracies.  Thanks for the 
> suggestion though.
> >
> > Message: 5
> > Date: Thu, 6 Sep 2007 16:51:49 -0400
> > From: "Charles Naylor" <Charles.Naylor@nikkoam.com 
> <mailto:Charles.Naylor@nikkoam.com>>
> > Subject: Re: [R-SIG-Finance] holidayNYSE missing some
> > To: <r-sig-finance@stat.math.ethz.ch 
> <mailto:r-sig-finance@stat.math.ethz.ch>>
> > Message-ID:
> >    <A4678959B3D65D449266DE8D3825E0821F7F47@nycmsg501.nikkoam.com 
> <mailto:A4678959B3D65D449266DE8D3825E0821F7F47@nycmsg501.nikkoam.com>>
> > Content-Type: text/plain;    charset="us-ascii"
> >
> > This is deliberate behavior.  If you check the code, the third-to-last
> > line is as follows:
> >    ans = ans[!(as.POSIXlt(ans@Data)$wday == 0 |
> > as.POSIXlt(ans@Data)$wday== 6)]
> >
> >
> > You could make an alternate version of holidayNYSE that omits this line,
> > if you like.
> >
> > -CN
> >
> > Charles Naylor
> > Assistant Vice President
> > Global Dynamic Asset Allocation Group
> > Nikko Alternative Asset Management, Inc.
> > 535 Madison Avenue, Suite 2500
> > New York, NY 10022
> > T: 212.610.6158
> > F: 212.610.6148
> > E: charles.naylor@nikkoam.com <mailto:charles.naylor@nikkoam.com>
> >
> > -----Original Message-----
> > From: r-sig-finance-bounces@stat.math.ethz.ch 
> <mailto:r-sig-finance-bounces@stat.math.ethz.ch>
> > [mailto:r-sig-finance-bounces@stat.math.ethz.ch 
> <mailto:r-sig-finance-bounces@stat.math.ethz.ch>] On Behalf Of John Putz
> > Sent: Thursday, September 06, 2007 4:44 PM
> > To: r-sig-finance@stat.math.ethz.ch 
> <mailto:r-sig-finance@stat.math.ethz.ch>
> > Subject: [R-SIG-Finance] holidayNYSE missing some
> >
> > Hello,
> >
> > I'm not sure if this is the correct list to email this too, but it
> > appears that at least in R 2.5.0 that the holidayNYSE function in
> > fCalendar does not include holidays that occur on Saturday.  E.g.
> > holidayNYSE(2004) does not list Christmas.
> >
> > Thanks, John.
> >    [[alternative HTML version deleted]]
> >
> > 
> >
> > email: johnputz3655@yahoo.com <mailto:johnputz3655@yahoo.com>
> > home: 206-632-6522
> > cell: 206-910-5229
> >  [[alternative HTML version deleted]]
> >
> John,
>
> I wrote this function for the NERC holidays you might have some interest
> in trying.  I also made some suggestions in a previous post in this list
> about this holidayNYSE problem, but did not hear from anyone on the
> feasibility of the suggestions.  This is also a problem with other US
> holidays, not just NYSE.  I would like to correct this for all the
> holiday functions but I do not want to have to overload the fCalendar
> functions every time I load fCalendar.
>
> here is my holidayNERC()
>
> #Method name: holidayNERC
> #Written by: Joe W. Byers
> #Creation Date:
> #Modification Date:          Modifier:
> #Inputs:  vector of Years
> #Returns: holidays dates
> #Example:
>
> #*******************************************************************************
> #Required Libraries
>
> #*******************************************************************************
> #Input and Temporary variables
>
> #Holidays for the North American Energy Reliability Council (data from
> http://www.nerc.com/~oc/offpeaks.html 
> <http://www.nerc.com/%7Eoc/offpeaks.html>):
> #    * Saturdays
> #    * Sundays
> #    * New Year's Day, January 1st (possibly moved to Monday if actually
> on Sunday)
> #    * Memorial Day, last Monday in May
> #    * Independence Day, July 4th (moved to Monday if Sunday)
> #    * Labor Day, first Monday in September
> #    * Thanksgiving Day, fourth Thursday in November
> #    * Christmas, December 25th (moved to Monday if Sunday)
>
> holidayNERC<-function (year =
> currentYear,West=F,FinCenter='America/NewYork')
> {
>     holidays = NULL
>     for (y in year) {
>       holidays = c(holidays, as.character(USNewYearsDay(y)))
>       holidays = c(holidays, as.character(USIndependenceDay(y)))
>       holidays = c(holidays, as.character(USThanksgivingDay(y)))
>       holidays = c(holidays, as.character(USChristmasDay(y)))
>       holidays = c(holidays, as.character(USLaborDay(y)))
>       holidays = c(holidays, as.character(USMemorialDay(y)))
>     }
>     holidays = sort(holidays)
>     ans = timeDate(holidays)
>     ans = ans + as.integer(as.POSIXlt(ans@Data)$wday == 0) *
>         24 * 3600
>     posix = as.POSIXlt(ans@Data)
>     y = posix$year + 1900
>     m = posix$mon + 1
>     lastday = as.POSIXlt((timeCalendar(y = y + (m + 1)%/%13,
>         m = m + 1 - (m + 1)%/%13 * 12, d = 1) - 24 * 3600)@Data)$mday
>     ExceptOnLastFriday = timeDate(as.character(.last.of.nday(year = y,
>         month = m, lastday = lastday, nday = 5)))
>     ans = ans - as.integer(ans >= timeDate("1959-07-03") &
> as.POSIXlt(ans@Data)$wday ==
>         0 & ans != ExceptOnLastFriday) * 24 * 3600
>     if (West==F) {
>       ans = ans[!(as.POSIXlt(ans@Data)$wday == 0 |
> as.POSIXlt(ans@Data)$wday ==
>         6)]
>     } else {
>       ans = ans[!as.POSIXlt(ans@Data)$wday == 0]
>       ans = ans[!(as.POSIXlt(ans@Data)$wday == 6 &
> !as.POSIXlt(ans@Data)$mon ==
>         6)]
>     }
>     ans@FinCenter = FinCenter
>     ans
> }
>
>
I would like to note and that I forgot to in the function header that 
this function is based on the holidaysNYSE() function from rmetrics and 
sincerely apologize for that oversight to rmetrics.

Joe


	[[alternative HTML version deleted]]

