knor<-read.table("krill.txt",header=TRUE)
head(knor)
install.packages("diptest")
library(diptest)

dip(log10(knor$wwt_grams))
[1] 0.05607551

dip(log10(knor$ulO2_min))
[1] 0.07210984

### Neither show a significant bimodalityat the p=0.05 level, though the logged wet weight is close
### Looking at the data doyou think that there really is only one uniform krill population?