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

Value

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

Examples

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