if (FALSE) {
data(managemeent, package = "bibliometrixData")
years <- c(2004, 2015)
nexus <- thematicEvolution(management, field = "ID", years = years, n = 100, minFreq = 2)
plotThematicEvolution(nexus$Nodes, nexus$Edges)
}
Run the code above in your browser using DataLab