R/rankModels.R

In w-hardy/serCymruTools: Tools For Analysing GP Prescribing Data

#' @title rankModels
#'
#' @description Rank models according to rmse and winkler scores
#'
#' @importFrom stats na.omit
#'
#' @param data Tibble of model accuracies including rmse and winkler
#'
#' @export
#'

rankModels <-
  function(data){
    data %>%
      na.omit() %>%
      dplyr::mutate(rank = rank(RMSE)) %>%
      dplyr::arrange(rank)
  }