| Title: | Calculate Scores and Marks for Track and Field Combined Events |
|---|---|
| Description: | Includes functions to calculate scores and marks for track and field combined events competitions. The functions are based on the scoring tables for combined events set forth by the International Association of Athletics Federation (2001). |
| Authors: | Katie Frank [aut, cre] |
| Maintainer: | Katie Frank <[email protected]> |
| License: | GPL-3 |
| Version: | 0.1.1 |
| Built: | 2025-02-15 05:41:05 UTC |
| Source: | https://github.com/katie-frank/combinedevents |
The package includes functions to calculate scores and marks for track and field combined events competitions. The functions are based on the scoring tables for combined events set forth by the International Association of Athletics Federation (2001).
Maintainer: Katie Frank [email protected]
International Association of Athletics Federation (2001). IAAF Scoring Tables for Combined Events.
Useful links:
Report bugs at https://github.com/katie-frank/combinedevents/issues
combined_events() is a generic function used to present results
of calls to scores() and marks().
combined_events(marks, scores, event_names, event, seconds, ...)combined_events(marks, scores, event_names, event, seconds, ...)
marks |
a numeric vectors of marks |
scores |
an integer vector of scores |
event_names |
a character vector of event names |
event |
a character string indicating the combined events competition |
seconds |
a numeric (either 0 or 1) |
... |
other arguments passed on to methods |
An object of class "combined_events".
The default method returns a list of that class.
combined_events_null() is a generic function used to present results
of calls to scores() and marks()
where in those calls combined_event = NULL.
combined_events_null(marks, scores, event_names, seconds, ...)combined_events_null(marks, scores, event_names, seconds, ...)
marks |
a numeric vector of marks |
scores |
an integer vector of scores |
event_names |
a character vector of event names |
seconds |
a numeric (either 0 or 1) |
... |
other arguments passed on to methods |
An object of class combined_events_null.
The default method returns a list of that class.
A dataset containing the performances of 23 athletes in the men's decathlon at the 2016 Summer Olympics.
decdec
A data frame with 23 rows and 24 variables. The variables
`100m`, LJ, SP, HJ, `400m`, `110mH`,
DT, PV, JT, and `1500m` correspond to the performances
of the athletes for the ten events comprising the decathlon. Those
variables ending in _p (e.g., `100m_p`) represent the
points athletes earn for their performances in each of the ten events.
A full description of the 24 variables is below.
rank of athlete
name of athlete
nationality of athlete
overall score
100m result, in seconds
100m points
long jump result, in meters
long jump points
shot put result, in meters
shot put points
high jump result, in meters
high jump points
400m result, in seconds
400m points
110m hurdles result, in seconds
110m hurdles points
discus throw result, in meters
discus throw points
pole vault result, in meters
pole vault points
javelin throw result, in meters
javelin throw points
1500m result, in the format mm:ss.ms
1500m points
https://en.wikipedia.org/wiki/Athletics_at_the_2016_Summer_Olympics_%2D_Men%27s_decathlon
marks() calculates marks for track and field combined events competitions.
marks(scores, gender, combined_event = NULL, seconds = FALSE)marks(scores, gender, combined_event = NULL, seconds = FALSE)
scores |
a numeric vector of track and field scores |
gender |
gender of athlete; either " |
combined_event |
an optional character string indicating the
combined events competition. For
|
seconds |
a logical; if |
marks() performs the opposite action of scores():
you give it the scores you want to obtain, and it gives you the marks you
need to achieve those scores. For track events, marks() returns the
slowest time needed to achieve the input score. Similarly, for jumping and
throwing events, marks() returns the shortest distance necessary to
achieve the input score.
For some events, when a score is given to marks(), the score returned may
be different from the one input because some scores are not actually
possible (due to rounding of track and field marks). When an impossible
score is given to marks(), the function will return the closest higher
score that corresponds to a mark.
A list of class "combined_events" (or "combined_events_null" if combined_event = NULL) with
the following fields:
results |
if called with non-NULL |
marks |
the vector of marks based on the input scores for the specified combined event.
If not all scores were supplied to |
scores |
the vector of scores for the specified combined event. If not all scores
were supplied to |
score_total |
if called with non-NULL |
call |
the matched call |
International Association of Athletics Federation (2001). IAAF Scoring Tables for Combined Events.
# Men's heptathlon marks(scores = rep(800, 7), gender = "male", combined_event = "heptathlon") # Women's pentathlon marks(scores = c(`60mH` = 981, HJ = 875, SP = 799, LJ = 956, `800m` = 1000), "female", "pentathlon") # Men's events marks(scores = c(LJ = 790, LJ = 810, HJ = 850, HJ = 900, PV = 900, PV = 915), "male")# Men's heptathlon marks(scores = rep(800, 7), gender = "male", combined_event = "heptathlon") # Women's pentathlon marks(scores = c(`60mH` = 981, HJ = 875, SP = 799, LJ = 956, `800m` = 1000), "female", "pentathlon") # Men's events marks(scores = c(LJ = 790, LJ = 810, HJ = 850, HJ = 900, PV = 900, PV = 915), "male")
scores() calculates scores for track and field combined events competitions.
scores(marks, gender, combined_event = NULL, seconds = FALSE)scores(marks, gender, combined_event = NULL, seconds = FALSE)
marks |
a numeric or character vector of track and field marks/performances |
gender |
gender of athlete; either " |
combined_event |
an optional character string indicating the
combined events competition. For
|
seconds |
a logical; if |
A list of class "combined_events" (or "combined_events_null" if combined_event = NULL) with
the following fields:
results |
if called with non-NULL |
marks |
the vector of marks for the specified combined event. If not all marks were
supplied to |
scores |
the vector of scores based on the input marks for the specified combined event.
If not all marks were supplied to |
score_total |
if called with non-NULL |
call |
the matched call |
International Association of Athletics Federation (2001). IAAF Scoring Tables for Combined Events.
# Men's decathlon scores(marks = c(`100m` = 11.61, LJ = 7.32, SP = 13.17, HJ = 1.9, `400m` = 49.96, `110mH` = 15.32, DT = 38.18, PV = 4.6, JT = 58.98, `1500m` = "4:39.34"), gender = "male", combined_event = "decathlon") # Women's heptathlon scores(c(14.11, 1.95, 13.96, 25.61, 6.44, 45.98, "2:07.26"), "female", "heptathlon") # Men's events scores(c(`60m` = 7.09, LJ = 7, LJ = 7.03, SP = 11.8, HJ = 2, `60mH` = 8.30, `60mH` = 9.31, PV = 4.30, `1000m` = "2:40.00"), gender = "male")# Men's decathlon scores(marks = c(`100m` = 11.61, LJ = 7.32, SP = 13.17, HJ = 1.9, `400m` = 49.96, `110mH` = 15.32, DT = 38.18, PV = 4.6, JT = 58.98, `1500m` = "4:39.34"), gender = "male", combined_event = "decathlon") # Women's heptathlon scores(c(14.11, 1.95, 13.96, 25.61, 6.44, 45.98, "2:07.26"), "female", "heptathlon") # Men's events scores(c(`60m` = 7.09, LJ = 7, LJ = 7.03, SP = 11.8, HJ = 2, `60mH` = 8.30, `60mH` = 9.31, PV = 4.30, `1000m` = "2:40.00"), gender = "male")