Remove loops

[neerajt]

The loops in returnAdj() are inefficient and hard to read.

Proposed fix: Replace all the loops with more efficient *apply calls if and only if it also improves readability. If it doesn't, try something else (eg. dplyr).