# NOT RUN {
### An example using the subsetUrbanEnvironmentNancy dataset ###
# }
# NOT RUN {
dataReleves <- betadiv::subsetUrbanEnvironmentNancy
strataList <- unique(dataReleves$Stratum)
output <- NULL
baselga <- NULL
stratum <- strataList[1]
for (stratum in strataList) {
releve.s <- dataReleves[which(dataReleves$Stratum == stratum),]
if (stratum == "forest") {
populationSize <- 3089 * 10000 / (pi * 5^2)
} else if (stratum == "parking") {
populationSize <- 501 * 10000 / (pi * 5^2)
} else {
populationSize <- 100000
}
indices <- getDissimilarityEstimates(releve.s, "CODE_POINT", "Espece",
populationSize, memSize = 500)
indices$stratum <- stratum
output <- rbind(output, indices)
}
# }
Run the code above in your browser using DataLab