# Not run
# data(s2)
# d <- distGPS(s2,metric='avgdist',mc.cores=1)
# d.intra <- domainDist(as.matrix(d),domain=s2names$Color,type='intra',plot=TRUE)
# d.inter <- domainDist(as.matrix(d),domain=s2names$Color,type='inter',plot=TRUE)
Run the code above in your browser using DataLab