data(dolomedes)
doloDist <- dist.dna(dolomedes)
doloSpp <- substr(dimnames(dolomedes)[[1]], 1, 5)
doloSpDist <- sppDist(doloDist, doloSpp)
doloSpDist
#Histogram of the barcode gap
transGreen <- rgb(0, 1, 0, 0.5) #Make a slightly transparent colour to see some overlap
hist(doloSpDist$inter, col="grey")
hist(doloSpDist$intra, col=transGreen, add=TRUE)
#Boxplot of the same
boxplot(doloSpDist)Run the code above in your browser using DataLab