R/index.R

In kingsuching/bestpredictor: Predict It

#' Returns the index of element in vector
#'
#' @import tidyverse
#' @import dplyr
#' @param finals, vector of sums of squares for each explanatory variable correlation
#' @param element, element to be searched for
#' @return index of elementi n vector
#' @export

index <- function(finals, element) {
  idx <- 1
  for(i in finals) {
    if(i == element) {
      return(idx)
    }
    idx <- idx+1
  }
  return(-1)
}