R/num_cor.R

In dmeds/MDS_package: Functions for NBA data set.

#' A correlation Function
#'
#' This function creates a correlation table of all numeric variables in a given year
#' @param year Input year of interest 
#' @keywords nba 
#' @export
#' @examples
#' num_cor()

num_cor <- function(year){
  year_filt <- dplyr::filter(nbadata, Year == year)
  year_filt <- purrr::keep(year_filt, is.numeric)
  cor(year_filt[ , -1], use = "complete.obs")
}