## Load species data
data(wetland)
## Create three clusters using
wetkm <- kmeans(wetland, centers=3)
## Compute Dufrene and Legendre's IndVal
strassoc(wetland, wetkm$cluster, func="IndVal.g")
## Compute correlation, with bootstrap 95 percent confidence intervals
strassoc(wetland, wetkm$cluster, func="r.g",
nboot.ci =100)
Run the code above in your browser using DataLab