Intriduction to SNA with R