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