# NOT RUN {
data(scientometrics)
NetMatrix <- biblioNetwork(scientometrics, analysis = "co-occurrences",
network = "keywords", sep = ";")
S <- normalizeSimilarity(NetMatrix, type = "association")
net <- networkPlot(S, n = 100, Title = "co-occurrence network",type="fruchterman",
labelsize = 0.7, halo = FALSE, cluster = "walktrap",remove.isolates=FALSE,
remove.multiple=FALSE, noloops=TRUE, weighted=TRUE)
res <- thematicMap(net, NetMatrix, S)
plot(res$map)
# }
Run the code above in your browser using DataLab