Pentathlon

Results from the Men's pentathlon at the 2004 Summer Olympics

data(pentathlon)

Format

A hyper2 object that gives a likelihood function

Details

Object pentathlon is a hyper2 object that gives a likelihood function for the strengths of the top seven competitors at the Modern Men's Pentathlon, 2004 Summer Olympics.

Object pentathlon_table is an order table: a data frame with rows being competitors, columns being disciplines, and entries being places. Thus looking at the first row, first column we see that Moiseev placed fifth at shooting.

These objects can be generated by running script inst/pentathlon.Rmd, which includes some further discussion and technical documentation and creates file pentathlon.rda which resides in the data/ directory.

References

“Wikipedia contributors”, Modern pentathlon at the 2004 Summer Olympics - Men's. Wikipedia, The Free Encyclopedia, https://en.wikipedia.org/w/index.php?title=Modern_pentathlon_at_the_2004_Summer_Olympics_%E2%80%93_Men%27s&oldid=833081611, [Online; accessed 5-March-2020]

Note

Many of the competitors' names have diacritics, which I have removed.

See also

ordertable

Examples

data(pentathlon)
pie(pentathlon_maxp)


as.ranktable(pentathlon_table)
#> A ranktable:
#>          c1            c2            c3         c4       c5           
#> shooting Meliakh       Michalik      Cerkovskis Capalini Moiseev      
#> fencing  Moiseev       Zadneprovskis Cerkovskis Michalik Walther      
#> swimming Moiseev       Capalini      Walther    Meliakh  Zadneprovskis
#> riding   Meliakh       Michalik      Capalini   Walther  Zadneprovskis
#> running  Zadneprovskis Cerkovskis    Walther    Capalini Moiseev      
#>          c6            c7        
#> shooting Zadneprovskis Walther   
#> fencing  Capalini      Meliakh   
#> swimming Michalik      Cerkovskis
#> riding   Moiseev       Cerkovskis
#> running  Meliakh       Michalik  
suppfun(as.ranktable(pentathlon_table))
#> log(Capalini^5 * (Capalini + Cerkovskis + Meliakh + Michalik + Moiseev
#> + Walther)^-1 * (Capalini + Cerkovskis + Meliakh + Michalik + Moiseev +
#> Walther + Zadneprovskis)^-5 * (Capalini + Cerkovskis + Meliakh +
#> Michalik + Walther)^-1 * (Capalini + Cerkovskis + Meliakh + Michalik +
#> Walther + Zadneprovskis)^-2 * (Capalini + Cerkovskis + Michalik +
#> Moiseev + Walther + Zadneprovskis)^-2 * (Capalini + Cerkovskis +
#> Moiseev + Walther + Zadneprovskis)^-2 * (Capalini + Meliakh)^-1 *
#> (Capalini + Meliakh + Michalik + Moiseev)^-1 * (Capalini + Meliakh +
#> Michalik + Moiseev + Walther)^-1 * (Capalini + Meliakh + Michalik +
#> Walther)^-1 * (Capalini + Meliakh + Walther)^-1 * (Capalini + Moiseev +
#> Walther + Zadneprovskis)^-1 * Cerkovskis^3 * (Cerkovskis + Meliakh +
#> Michalik + Walther + Zadneprovskis)^-1 * (Cerkovskis + Meliakh +
#> Michalik + Zadneprovskis)^-1 * (Cerkovskis + Michalik)^-1 * (Cerkovskis
#> + Michalik + Zadneprovskis)^-1 * (Cerkovskis + Moiseev)^-1 *
#> (Cerkovskis + Moiseev + Walther + Zadneprovskis)^-1 * (Cerkovskis +
#> Moiseev + Zadneprovskis)^-1 * Meliakh^4 * (Meliakh + Michalik)^-1 *
#> (Meliakh + Michalik + Moiseev)^-1 * Michalik^4 * Moiseev^5 * (Moiseev +
#> Walther + Zadneprovskis)^-1 * Walther^4 * (Walther + Zadneprovskis)^-1
#> * Zadneprovskis^5)