presid2002               package:ade4               R Documentation

_R_e_s_u_l_t_s _o_f _t_h_e _F_r_e_n_c_h _p_r_e_s_i_d_e_n_t_i_a_l _e_l_e_c_t_i_o_n_s _o_f _2_0_0_2

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

     'presid2002' is a list of two data frames 'tour1' and 'tour2' with
     93 rows ( 93 departments from continental Metropolitan France)
     and, 4 and 12 variables respectively .

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

     data(presid2002)

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

     'tour1' contains the following arguments:
      the number of registered voters ('inscrits'); the number of
     abstentions ('abstentions'); the number of voters ('votants'); the
     number of expressed votes ('exprimes') and, the numbers of votes
     for each candidate: 'Megret', 'Lepage', 'Gluksten', 'Bayrou', 
     'Chirac', 'Le_Pen', 'Taubira', 'Saint.josse', 'Mamere', 'Jospin',
     'Boutin',  'Hue', 'Chevenement', 'Madelin', 'Besancenot'.

      'tour2' contains the following arguments:
      the number of registered voters ('inscrits'); the number of
     abstentions ('abstentions'); the number of voters ('votants'); the
     number of expressed votes ('exprimes') and,  the numbers of votes
     for each candidate: 'Chirac' and 'Le_Pen'.

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

     Site of the ministry of the Inerior, of the Internal Security and
     of the local liberties
      <URL:
     http://www.interieur.gouv.fr/avotreservice/elections/presid2002/>

_S_e_e _A_l_s_o:

     This dataset is compatible with 'elec88' and 'cnc2003'

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

     data(presid2002)
     all((presid2002$tour2$Chirac + presid2002$tour2$Le_Pen) == presid2002$tour2$exprimes)
     ## Not run: 
     data(elec88)
     data(cnc2003)
     w1 = area.util.class(elec88$area, cnc2003$reg)

     par(mfrow = c(2,2))
     par(mar = c(0.1,0.1,0.1,0.1))

     area.plot(w1)
     w = scale(elec88$tab$Chirac)
     s.value(elec88$xy, w, add.plot = TRUE)
     scatterutil.sub("Chirac 1988 T1", csub = 2, "topleft")

     area.plot(w1)
     w = scale(presid2002$tour1$Chirac/ presid2002$tour1$exprimes)
     s.value(elec88$xy, w, add.plot = TRUE)
     scatterutil.sub("Chirac 2002 T1", csub = 2, "topleft")

     area.plot(w1)
     w = scale(elec88$tab$Mitterand)
     s.value(elec88$xy, w, add.plot = TRUE)
     scatterutil.sub("Mitterand 1988 T1", csub = 2, "topleft")

     area.plot(w1)
     w = scale(presid2002$tour2$Chirac/ presid2002$tour2$exprimes)
     s.value(elec88$xy, w, add.plot = TRUE)
     scatterutil.sub("Chirac 2002 T2", csub = 2, "topleft")
     ## End(Not run)

