Differences

This shows you the differences between two versions of the page.

--- network_groups [2015/12/01 09:59] – hkimscil
+++ network_groups [2015/12/02 14:31] (current) – hkimscil
@@ Line 1: / Line 1: @@
 ====== Identifying groups of networks ======
+''setwd("D:/Users/Hyo/Cs-Kant/CS/Classes/sna_examples/sna_in_r")''
 <code># Network's characteristics and subgroups
 library(sna)
@@ Line 556: / Line 558: @@
 hamming.G=sedist(G,method="hamming")
-cluster<-equiv.clust(G, method="hamming", cluster.method="complete")
+cluster <- equiv.clust(G, method="hamming", cluster.method="complete")
+b.mdoel <- blockmodel(G, cluster, h=4.5)
+b.model
+plot(b.model)
 </code>
 {{cluster.dendrogram.png?400}}
+<code>> b.mdoel <- blockmodel(G, cluster, h=4.5)
+> b.model
+Network Blockmodel:
+Block membership:
+  2  3  4  5  6  7  8  9 10
+  2  1  3  4  1  1  3  4  5
+Reduced form blockmodel:
+        Block 1 Block 2 Block 3 Block 4 Block 5
+Block 1     0.0       0   0.875    0.25     0.5
+Block 2     0.5     NaN   0.000    0.50     1.0
+Block 3     0.0       0   0.500    0.25     0.5
+Block 4     0.0       1   0.000    0.50     0.0
+Block 5     0.0       0   1.000    1.00     NaN
+> plot(b.model)
+</code>
+{{blockmodel.png?400}}