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 in the years 1995/6
     and 2001/2.

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

     data(Bundesliga)

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

     A data frame with 612 observations and 6 variables.

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

     _A_w_a_y_T_e_a_m character. 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 day of the game.

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

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

     The data for the season 1995/6 is taken from Knorr-Held (1999),
     the data for the season 2001/2 was collected by Achim Zeileis.

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

     SFB 386 "Statistical Analysis of Discrete Structures" <URL:
     http://www.stat.uni-muenchen.de/service/datenarchiv/bundesliga/bun
     desliga.html>

_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)

     ## independence of home and away goals
     tore95 <- xtabs(~ HomeGoals + AwayGoals, data = Bundesliga,
                     subset = Year == 1995)
     tore95
     mosaic(tore95, gp = shading_max)

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

     gf1 <- goodfit(ntore1)
     gf2 <- goodfit(ntore2)
     gf3 <- goodfit(ntore3)

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

     Ord_plot(ntore1)
     distplot(ntore1)

