expanded 'Clams' into 'OceanQuahog' and 'SurfClam'.

NOAA-EDAB · Nov 16, 2023 · c40382d · c40382d
1 parent 03a233f
commit c40382d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/data-raw/R/GBRpath_species_classification.R b/data-raw/R/GBRpath_species_classification.R
@@ -10,9 +10,9 @@ groups1 <- data.table(Group = c('AtlHerring', 'AtlMackerel', 'Butterfish',
                                 'SmoothDogfish', 'Barndoor', 'WinterSkate', 'LittleSkate', 
                                 'OtherSkates', 'Illex', 'Loligo', 'OtherCephalopods', 
                                 'AmLobster', 'AtlScallop', 
-                                'Clams'), 
+                                'OceanQuahog', 'SurfClam'), 
                       'Data Source' = c(rep('NEFSC BTS', 40), 'NEFSC Scallop', 
-                                        'NEFSC Clam'),
+                                        (rep('NEFSC Clam',2)) ),
                       Classification = c(rep('Pelagic (Small; Round)', 5),
                                          'Pelagic (Medium; Round)', 
                                          rep('Demersal (Round)', 11), 
@@ -21,7 +21,7 @@ groups1 <- data.table(Group = c('AtlHerring', 'AtlMackerel', 'Butterfish',
                                          rep('Demersal (Flat)', 9), 'Demersal (Round)',
                                          'Demersal (Round)', rep('Demersal (Flat)', 4),
                                          rep('Invertebrate (Pelagic)', 3),
-                                         rep('Invertebrate (Benthic)', 3)))
+                                         rep('Invertebrate (Benthic)', 4)))
 
 groups2 <- data.table(Group = c('Seabirds', 'Seals', 'BalWhale', 'ToothWhale', 'HMS', 
                                 'Sharks', 'Macrobenthos', 'Megabenthos',