Score of Lags — score • LPWC

This function computes the score of best lags by summing the correlation of corresponding lags

score(corr, lags)

Arguments

corr	a vector of computed correlation
lags	a vector of same length with corr that holds the lags corresponding to the corr vector

a numerical value of best lag picked based on corr and lags

score(runif(10, 0, 1), c(2, 0, 0, 0, 3, 2, -1, 2, 0, 1))
#> [1] 0
score(runif(20, 0.5, 0.8), sample(-3:3, size = 20, replace = TRUE))
#> [1] -1