User Tools

Site Tools


sna_eg_stanford:lab06

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision
Previous revision
Last revisionBoth sides next revision
sna_eg_stanford:lab06 [2019/12/04 11:13] hkimscilsna_eg_stanford:lab06 [2019/12/11 08:23] – [no pdf] hkimscil
Line 64: Line 64:
 m182_task <- delete_edges(m182_full, E(m182_full)[E(m182_full)$task_tie==0]) m182_task <- delete_edges(m182_full, E(m182_full)[E(m182_full)$task_tie==0])
 summary(m182_task) summary(m182_task)
-m182_task+m182_task[]
  
 # Look at the plots for each sub-graph # Look at the plots for each sub-graph
Line 1332: Line 1332:
 # And compare to NetCluster based on correlations and triads: # And compare to NetCluster based on correlations and triads:
 # pdf("6.8_m182_task_cluster_by_correlation_PCA_Triads.pdf") # 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_social_hclust, main = "Correlation")
 plot(m182_task_factor_hclust, main = "PCA") 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() # dev.off()
  
sna_eg_stanford/lab06.txt · Last modified: 2019/12/11 10:40 by hkimscil

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki