Variable names SitesIDS <- id_site and SitesNames <- site_name for consistency...