R/durbin_watson.R

durbin_watson <- function(x){

  x_lead <- dplyr::lead(x)

  x_lead[is.na(x_lead)] <- 0

  (sum((x-x_lead)^2)) / (sum((x^2)))
}
abailey91/tidyModel documentation built on May 25, 2019, 2:24 p.m.