Bundesliga                package:vcd                R Documentation

_E_r_g_e_b_n_i_s_s_e _d_e_r _F_u_s_s_b_a_l_l-_B_u_n_d_e_s_l_i_g_a

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

     Results from the first German soccer league (1963-2008).

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

     data("Bundesliga")

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

     A data frame with 14018 observations and 7 variables.

     _H_o_m_e_T_e_a_m factor. Name of the home team.

     _A_w_a_y_T_e_a_m factor. Name of the away team.

     _H_o_m_e_G_o_a_l_s number of goals scored by the home team.

     _A_w_a_y_G_o_a_l_s number of goals scored by the away team.

     _R_o_u_n_d round of the game.

     _Y_e_a_r year in which the season started.

     _D_a_t_e starting time of the game (in '"POSIXct"' format).

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

     The data comprises all games in the first German soccer league
     since its foundation in 1963. The data have been queried online
     from the  official Web page of the DFB and prepared as a data
     frame in R by Daniel Dekic, Torsten Hothorn, and Achim Zeileis
     (replacing earlier versions of the data in the package containing
     only subsets of years).

     Each year/season comprises 34 rounds (except 1963, 1964, 1991) so
     that all 18 teams play twice against each other (switching home
     court advantage). In 1963/64, there were only 16 teams, hence only
     30 rounds. In 1991, after the German unification, there was one
     season with 20 teams and 38 rounds.

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

     Homepage of the Deutscher Fussball-Bund (DFB, German Football
     Association): <URL: http://www.dfb.de/>

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

     Leonhard Knorr-Held (1999), Dynamic rating of sports teams. SFB
     386 "Statistical Analysis of Discrete Structures", Discussion
     paper *98*.

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

     'UKSoccer'

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

     data("Bundesliga")

     ## number of goals per game poisson distributed?
     ngoals1 <- xtabs(~ HomeGoals, data = Bundesliga, subset = Year == 1995)
     ngoals2 <- xtabs(~ AwayGoals, data = Bundesliga, subset = Year == 1995)
     ngoals3 <- table(apply(subset(Bundesliga, Year == 1995)[,3:4], 1, sum))

     gf1 <- goodfit(ngoals1)
     gf2 <- goodfit(ngoals2)
     gf3 <- goodfit(ngoals3)

     summary(gf1)
     summary(gf2)
     summary(gf3)
     plot(gf1)
     plot(gf2)
     plot(gf3)

     Ord_plot(ngoals1)
     distplot(ngoals1)

