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:

     A collection and description of functions to extract  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) 

