## make a small object
data(microbov)
obj <- microbov[1:5,microbov@loc.fac %in% c("L01","L02")]
## verify results
propShared(obj)
genind2df(obj,sep="|")
## Use this similarity measure inside a PCoA
## ! This is for illustration only !
## the distance should be rendered Euclidean before
## (e.g. using cailliez from package ade4).
matSimil <- propShared(microbov)
matDist <- exp(-matSimil)
D <- cailliez(as.dist(matDist))
pcoa1 <- dudi.pco(D,scannf=FALSE,nf=3)
s.class(pcoa1$li,microbov$pop,lab=microbov$pop.names)
Run the code above in your browser using DataLab