Vectorizing a Loop Around Two `lapply` Calls Over a List in R: A Performance-Enhancing Solution