WFEStatistics            package:fEcofin            R Documentation

_W_F_E _S_t_a_t_i_s_t_i_c_s

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

     Data sets of financial and economic market  statistics from the
     data available from the exchange  data collected by the World
     Federation of Stock  Exchanges. 

     To load statistics from the WFE:

       'data(wfe1)'  Market capitalization of domestic companies,
       'data(wfe2)'  Total number of companies with shares listed,
       'data(wfe3)'  Total value of share trading,
       'data(wfe4)'  Market value of bonds listed,
       'data(wfe5)'  Total value of bond trading, and
       'data(wfe6)'  Price earning ratio an gross dividend yield.

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

     Diethelm Wuertz for the Rmetrics R-port.

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

     WFE, 2004, _World Federation of Stock Exchanges, Focus 2004_,
     http://www.world-exchanges.org.

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

     ## Barplot from WFE Capitalization Statistics:
        # Extract Capitalization of/at:
        # NYSE: 7, Tokyo: 37, London: 22, Frankfurt: 15
        # 1991 - 2003 triannual: 3,6,9,12,15
        data(wfe1)
        Table = t(wfe1[c(7,37,22,15),c(3,6,9,12,15)])/1e6
        colnames(Table) = c("NewYork", "Tokyo", "London", "Frankfurt")
        rownames(Table) = as.character(seq(1991, 2003, by = 3))
        Table
        # Create Barplot:
        barplot(Table, beside = TRUE, legend = rownames(Table),
          col = c("lightblue", "mistyrose", "lightcyan", "lavender", "cornsilk"))
        title(main = "Stock Market Capitalization\n 1991 - 2003")
        mtext("Source: World Federation of Exchanges", side = 4, 
          line = -2, cex = 0.7) 

