# NOT RUN {
pop <- sample(1:50, 5)
# Create similarity matrix
Z <- diag(1, length(pop))
Z[Z==0] <- 0.4
# Calculate similarity-sensitive diversity of order 0 (species richness)
qDZ_single(pop, 0, Z)
# }
Run the code above in your browser using DataLab