Allianz              package:pendensity              R Documentation

_D_a_i_l_y _f_i_n_a_l _p_r_i_c_e_s (_D_A_X) _o_f _t_h_e _G_e_r_m_a_n _s_t_o_c_k _A_l_l_i_a_n_z _i_n _t_h_e _y_e_a_r_s _2_0_0_6 _a_n_d _2_0_0_7

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

     Containing the daily final prices of the German stock Allianz in
     the years 2006 and 2007.

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

     data(Allianz)

_F_o_r_m_a_t:

     A data frame with 507 observations of the following 2 variables.

     '_D_a_t_u_m' Data

     '_S_c_h_l_u_s_s' final price

_S_o_u_r_c_e:

     www.handelsblatt.de

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

     data(Allianz)

     form<-'%d.%m.%y %H:%M'

     time.Allianz <- strptime(Allianz[,1],form)

     #looking for all dates in 2006
     data.Allianz <- Allianz[which(time.Allianz$year==106),2]

     #building differences of first order
     Allianz1 <- c()
     for(i in 2:length(data.Allianz)) Allianz1[i-1] <- data.Allianz[i]-data.Allianz[i-1]

     #estimating the density
     density.Allianz <- pendensity(Allianz1~1)
     plot(density.Allianz)

