R/transform.R

In IsaacVerm/reproseries: example for the series of reproducible analysis posts on isaacverm.github.io

#' @export
addCelsiusColumn <- function(temperatures) {
  temperatures %>%
    dplyr::mutate(celsius = (value - 32) * 5/9) %>%
    dplyr::rename(fahrenheit = value)
}

#' @export
summariseAvgTemperatureByYear <- function(temperatures) {
  temperatures %>%
    dplyr::group_by(year) %>%
    dplyr::summarise(avgTemperature = mean(celsius))
}