R Codes used during VertNet Internship, summer 2013