No matches were found for subject:"\[R\] Replacing double loop by apply"