# NOT RUN {
## 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 point-biserial correlation, with bootstrap 95 percent confidence intervals
strassoc(wetland, wetkm$cluster, func="r", nboot =100) 
# }
Run the code above in your browser using DataLab