R/get_Riolo_data.R

In kmiddleton/Riolo_CF_Growth_Data: Data from Riolo and Colleagues An Atlas of Craniofacial Growth

#' Load Riolo Data
#'
#' @param Riolo_var string Riolo variable name
#' @param sex string for sex
#' @param rescale Boolean for whether to rescale data using Michigan
#' enlargement factor
#'
#' @return data.frame with Riolo data
#'
#' @export
#'
get_Riolo_data <- function(Riolo_var, sex, rescale = FALSE) {
  sex_sub <- dplyr::if_else(sex == "F", "Female", "Male")
  R <- get(Riolo_var) %>%
    dplyr::filter(Sex == sex_sub)
  if (rescale) {
    R <- R %>%
      dplyr::mutate(Mean = 0.871 * Mean,
             SD = 0.871 * SD)
  }
  return(R)
}