Differences

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

--- sna_eg_stanford:lab06 [2019/12/04 10:58] – hkimscil
+++ sna_eg_stanford:lab06 [2019/12/11 10:40] (current) – [no pdf] hkimscil
@@ Line 56: / Line 56: @@
 m182_friend <- delete_edges(m182_full, E(m182_full)[E(m182_full)$friend_tie==0])
 summary(m182_friend)
+m182_friend[]
 m182_social <- delete_edges(m182_full, E(m182_full)[E(m182_full)$social_tie==0])
 summary(m182_social)
+m182_social[]
 m182_task <- delete_edges(m182_full, E(m182_full)[E(m182_full)$task_tie==0])
 summary(m182_task)
+m182_task[]
 # Look at the plots for each sub-graph
@@ Line 1005: / Line 1008: @@
 plot(m182_task, layout=task_layout, main = "task", edge.arrow.size=.5)
 # dev.off()
+# back to normal window pannel (no partition)
+par(mfrow = c(1,1))
 ###
@@ Line 1329: / Line 1335: @@
 # And compare to NetCluster based on correlations and triads:
 # pdf("6.8_m182_task_cluster_by_correlation_PCA_Triads.pdf")
-par(mfrow = c(1,3))
+par(mfrow = c(1,2))
 plot(m182_task_social_hclust, main = "Correlation")
 plot(m182_task_factor_hclust, main = "PCA")
-plot(m182_task_triad_hclust, main = "Triads")
+# the below one that didn't work
+# plot(m182_task_triad_hclust, main = "Triads")
 # dev.off()