R/select_every_nth.R

In elo2zero/oddsandsods: Miscellanous functions

#' @export
selectEveryNth <- function(x, k,length.out){
  if(!missing(k)){
    idx <- seq(1,length(x), by=k)

  }else if(!missing(length.out)){
    idx <- round(seq(1, length(x), length.out = length.out))
  }
  return(x[idx])
}