if (FALSE) {
data(scientometrics, package = "bibliometrixData")
years <- c(2000, 2010)
nexus <- thematicEvolution(scientometrics, field = "ID",
years = years, n = 100, minFreq = 2)
# Use custom threshold and measure
nexus <- assignEvolutionColors(nexus, threshold = 0.6, use_measure = "weighted")
}
Run the code above in your browser using DataLab