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