R/rolling_see_difference.R

In becausejustyn/nflhelpR: What the Package Does (One Line, Title Case)

Defines functions rolling_sse_difference

Documented in rolling_sse_difference

#' Rolling SSE Difference
#'
#' @param x tot.withinss column
#' @param n amount to lag
#'
#' @return numerical values



rolling_sse_difference <- function(x, n = 2){
  x - n * dplyr::lead(x) + dplyr::lead(x, n)
}