#divide the specimens into species and assign numbers to each specimen (all specimens are grouped in species 1 to begin)
#replace the number 1 with other numbers (2, 3, 4, etc.) to denote different hypothesized species groupings
#when you have completed the numbers, highlight the entire window and click "Run"
specimen1 <- 1
specimen2 <- 1
specimen3 <- 1
specimen4 <- 1
specimen5 <- 1
specimen6 <- 1
specimen7 <- 1
specimen8 <- 1
specimen9 <- 1
specimen10 <- 1
specimen11 <- 1
specimen12 <- 1
specimen13 <- 1
specimen14 <- 1
specimen15 <- 1
specimen16 <- 1
specimen17 <- 1
specimen18 <- 1
specimen19 <- 1
specimen20 <- 1

species_id <- c(specimen1,specimen2,specimen3,specimen4,specimen5,specimen6,specimen7,specimen8,specimen9,specimen10,specimen11,specimen12,specimen13,specimen14,specimen15,specimen16,specimen17,specimen18,specimen19,specimen20)
ammon_id <- data.frame(ammon, species_id)