R/linearCombosFilterFunction.R

In benjaminryanclarke/rDailyFantasy: Provides Tools For Daily Fantasy Sports

#' lcs removal
#'
#' @param x data
#'
#' @return dataframe
#' @export
#'
#' @examples combos.Filter(bats)
combos.Filter<-suppressWarnings(function(x){
  suppressMessages(correl<-cor(x))
  cor.data<-caret::findLinearCombos(na.zero(correl))
  cor.x<-x[,-c(cor.data$remove)]
  return(cor.x)
})