R/data.R

In strength: Operations Designed for Tidy Strength Data

#' RPE table RTS
#'
#' @format ## `rpe_tab_rts`
#' A dataframe with 11 rows and 16 columns.
#' \describe{
#'  \item{RPE}{The rating of perceived exertion}
#'  \item{1}{Estimated percentage of one rep max doing 1 rep at the RPE given by RPE.}
#'  \item{2}{Estimated percentage of one rep max doing 2 reps at the RPE given by RPE.}'
#'  \item{...}{And so on...}
#' }
#' @source {Pulled from the TRAC system on Reactive Training Systems in Dec 2025}
"rpe_tab_rts"

#' RPE table Helms and colleagues.
#'
#' @format ## `rpe_tab_helms`
#' A dataframe with 10 rows and 11 columns.
#' \describe{
#'  \item{RPE}{The rating of perceived exertion}
#'  \item{1}{Estimated percentage of one rep max doing 1 rep at the RPE given by RPE.}
#'  \item{2}{Estimated percentage of one rep max doing 2 reps at the RPE given by RPE.}'
#'  \item{...}{And so on...}
#' }
#' @source {https://doi.org/10.1519/SSC.0000000000000218.  Based on earlier work by Zourdos and Helms}
"rpe_tab_helms"

#' RPE table from Brzycki.
#'
#' @format ## `rpe_tab_brzycki`
#' A dataframe with 9 rows and 16 columns.
#' \describe{
#'  \item{RPE}{The rating of perceived exertion}
#'  \item{1}{Estimated percentage of one rep max doing 1 rep at the RPE given by RPE.}
#'  \item{2}{Estimated percentage of one rep max doing 2 reps at the RPE given by RPE.}'
#'  \item{...}{And so on...}
#' }
#' @source {ISBN 978-1935628132, "A practical approach to strength training".  This is a rep-max resource and we extended to RPE using the reps in reserve definition for RPE (see `rep_tab_helms` for a paper link that explains this.)}
"rpe_tab_brzycki"


#' Percentage lookup from reactive training systems (RTS)
#'
#' @format ## `pct_lookup_rts`
#' A data frame with 165 rows and 5 columns:
#' \describe{
#'  \item{reps}{Number of reps performed}
#'  \item{rpe}{Rating of perceived exertion}
#'  \item{pct_1rm}{Percentage of one-repetition maximum associated with `reps` at `rpe`.}
#' }
#' @source {Derived from `rpe_tab_rts`.}
"pct_lookup_rts"

#' Percentage lookup from Helms and colleagues.
#'
#' @format ## `pct_lookup_helms`
#' A data frame with 90 rows and 3 columns:
#' \describe{
#'  \item{reps}{Number of reps performed}
#'  \item{rpe}{Rating of perceived exertion}
#'  \item{pct_1rm}{Percentage of one-repetition maximum associated with `reps` at `rpe`.}
#' }
#' @source {Derived from `rpe_tab_helms`.}
"pct_lookup_helms"

#' Percentage lookup from Brzycki.
#'
#' @format ## `pct_lookup_brzycki`
#' A data frame with 135 rows and 3 columns:
#' \describe{
#'  \item{reps}{Number of reps performed}
#'  \item{rpe}{Rating of perceived exertion}
#'  \item{pct_1rm}{Percentage of one-repetition maximum associated with `reps` at `rpe`.}
#' }
#' @source {Derived from `rpe_tab_brzycki`.}
"pct_lookup_brzycki"