R Facebook SNA scripts