few changes

[iramuteq] / Rscripts / simi.R

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index e259cbc..2564e2e 100644 (file)
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -334,6 +334,9 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, communities =
         rgl.close()
        #       while (rgl.cur() != 0)
        #               Sys.sleep(0.5)
+       } else if (p.type == 'web') {
+               library(rgexf)
+               simi.to.gexf(filename, graph.simi, nodes.attr = NULL)
        }
 }