#' Baseline Speed Rating Estimation
#'
#' This function estimates speed ratings for a baseline course.
#' @param x Time in seconds for runners as a numeric vector
#' @param alpha The number of seconds equal to one speed point
#' @param beta The centering parameter
#' @keywords speed rating, cross crountry, handicapping
#' @export
#' @examples
#' SR(1573.6, 4.4, 2355)
SR <- function(x, alpha, beta) {
(beta - x) / alpha
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.