# Memberships vector
membership1 <- c(0.1, 0.2, 0.3, 0.4)
diversity(membership1)
diversity(membership1, two.power = TRUE)
# Memberships matrix
membership2 <- matrix(c(0.1, 0.2, 0.3, 0.4, 0.3, 0.2, 0.4, 0.1, 0.2, 0.3, 0.1, 0.4),
nrow=3, ncol=4, byrow=TRUE)
E <- rep(NA, nrow(membership2))
for(i in 1:nrow(membership2)){
E[i] <- diversity(membership2[i,])
}
E
Run the code above in your browser using DataLab