Completed get.site.data.R [again]