R script to link your friends together by what they "like" on Facebook