Calculate scores for track and field combined events

scores() calculates scores for track and field combined events competitions.

scores(marks, gender, combined_event = NULL, seconds = FALSE)

Arguments

marks	a numeric or character vector of track and field marks/performances
gender	gender of athlete; either "`male`" or "`female`"
combined_event	an optional character string indicating the combined events competition. For `gender = "male"`, the options are "`decathlon`"/"`outdoor decathlon`", "`outdoor pentathlon`", "`heptathlon`"/"`indoor heptathlon`", and "`indoor pentathlon`". For `gender = "female"`, the options are "`heptathlon`"/"`outdoor heptathlon`", "`decathlon`"/"`outdoor decathlon`", and "`pentathlon`"/"`indoor pentathlon`". If `combined_event = NULL`, the elements of `marks` must be named. For `gender = "male"`, the allowed names for the elements of `marks` are `100m`, `LJ`, `SP`, `HJ`, `400m`, `110mH`, `DT`, `PV`, `JT`, `1500m`, `200m`, `60m`, `60mH`, and `1000m`. For `gender = "female"`, the allowed names are `100m`, `LJ`, `SP`, `HJ`, `400m`, `100mH`, `DT`, `PV`, `JT`, `1500m`, `200m`, `60mH`, and `800m`.
seconds	a logical; if `TRUE`, will return all track event marks in seconds

Value

A list of class "combined_events" (or "combined_events_null" if combined_event = NULL) with the following fields:

results

if called with non-NULL combined_event, a data frame with columns for the specified combined event containing the names of those events, mark for the input marks/performances, and score for the resulting scores based on those marks. The last row of the data frame gives the total score for the specified combined events competition. If combined_event = NULL, a data frame with columns event, mark, and score.

marks

the vector of marks for the specified combined event. If not all marks were supplied to scores(), then there will be NA values for those events with missing marks. If combined_event = NULL, the vector of marks.

scores

the vector of scores based on the input marks for the specified combined event. If not all marks were supplied to scores(), then there will be scores with NA values for those events with missing marks. If combined_event = NULL, the vector of scores.

score_total

if called with non-NULL combined_event, an integer representing the overall score for the specified combined events competition

call

the matched call

References

International Association of Athletics Federation (2001). IAAF Scoring Tables for Combined Events.

Examples

# 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")
#>    decathlon    mark score
#> 1       100m   11.61   730
#> 2         LJ    7.32   891
#> 3         SP   13.17   678
#> 4         HJ     1.9   714
#> 5       400m   49.96   816
#> 6      110mH   15.32   811
#> 7         DT   38.18   628
#> 8         PV     4.6   790
#> 9         JT   58.98   723
#> 10     1500m 4:39.34   684
#> 11     TOTAL    <NA>  7465

# Women's heptathlon
scores(c(14.11, 1.95, 13.96, 25.61, 6.44, 45.98, "2:07.26"),
       "female", "heptathlon")
#>   heptathlon    mark score
#> 1      100mH   14.11   963
#> 2         HJ    1.95  1171
#> 3         SP   13.96   791
#> 4       200m   25.61   832
#> 5         LJ    6.44   988
#> 6         JT   45.98   782
#> 7       800m 2:07.26  1005
#> 8      TOTAL    <NA>  6532

# 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")
#>   event    mark score
#> 1   60m    7.09   851
#> 2    LJ       7   814
#> 3    LJ    7.03   821
#> 4    SP    11.8   594
#> 5    HJ       2   803
#> 6  60mH     8.3   908
#> 7  60mH    9.31   679
#> 8    PV     4.3   702
#> 9 1000m 2:40.00   873