holidayCalendar          package:fCalendar          R Documentation

_H_o_l_i_d_a_y _C_a_l_e_n_d_a_r_s

_D_e_s_c_r_i_p_t_i_o_n:

     Returns a holiday calendar.

_U_s_a_g_e:

     holidayNYSE(year = currentYear)
     holidayZURICH(year = currentYear)

_A_r_g_u_m_e_n_t_s:

    year: an integer value or vector of years, formatted as 'YYYY'. 

_D_e_t_a_i_l_s:

     *Holiday Calendars:* 

      Two examples are implemented, the holiday calendar for the New
     York Stock Exchange, and the public holidays for Zurich. Have a
     look on the code to write your own holiday calendars.

_V_a_l_u_e:

     'holidayNYSE'
      'holidayZURICH' 
      return an holiday calendar as an object of class 'timeDate'.

_A_u_t_h_o_r(_s):

     Diethelm Wuertz for the Rmetrics R-port.

_R_e_f_e_r_e_n_c_e_s:

     ISO-8601 (1988);  _Data Elements and Interchange Formats -
     Information Interchange, Representation of Dates and Time_,
     International Organization for Standardization, Reference Number
     ISO 8601, 14 pages.

_E_x_a_m_p_l_e_s:

     ## holidayNYSE -
        holidayNYSE(currentYear)
        
     ## holidayZURICH =
        ## Not run: 
        holidayZURICH = function(year = currentYear) {
          holidays = c(
             NewYearsDay(year),
             GoodFriday(year),   
             EasterMonday(year), 
             LaborDay(year),
             PentecostMonday(year),  
             ChristmasDay(year),
             BoxingDay(year),
             CHBerchtoldsDay(year),
             CHSechselaeuten(year),
             CHAscension(year),
             CHConfederationDay(year),
             CHKnabenschiessen(year) )
          # Sort and Remove Weekends: 
          holidays = sort(holidays)
          holidays = holidays[isWeekday(holidays)]
          # Add Financial Center:
          holidays@FinCenter = "Zurich"
          # Return Value:
          holidays }
        
     ## End(Not run)
        holidayZURICH(2007:2009)

