The code below shows a sample of point locations of Brent Goose on mudflats.
The black points are the subspecies Dark-bellied Brent Goose, and white
points the subspecies Light-bellied Brent Goose:

geese <- data.frame(lightLat=c(55.66735, 55.66735, 55.67341, 55.66735,
55.66735),
           lightLong=c(-1.833845,-1.833844,-1.833843,-1.833841,-1.833840),
           darkLat=c(55.66735,55.66735,55.66735,55.66735,55.61628),
           darkLong=c(-1.833851,-1.833851,-1.833848,-1.833850,-1.833849))

library(ggplot2)
ggplot(geese, aes(lightLong, lightLat)) + geom_point(size=5, color='white')
+
  geom_point(data=data.frame(geese), aes(darkLong, darkLat), color='black',
size=5) +
  xlab('long') +
  ylab('lat')

The two subspecies segregate, as can be seen. Išm looking for a statistical
measure of segregation? Can anyone suggest a suitable measure?

Thanks
Ross




	[[alternative HTML version deleted]]

