# NOT RUN {
data(shoshveg)
data(shoshsite)
dis.bc <- dsvdis(shoshveg,'bray')
# }
# NOT RUN {
cli.60 <- clique(dis.bc,0.60)
# }
# NOT RUN {
# will run for several
# }
# NOT RUN {
print(clique.test(cli.60,shoshsite$swb))
# }
# NOT RUN {
# minutes
# }
Run the code above in your browser using DataLab