Differences

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

--- krackhardt_datasets [2019/12/13 13:47] – hkimscil
+++ krackhardt_datasets [2019/12/13 14:11] (current) – hkimscil
@@ Line 226: / Line 226: @@
 krack_advice_matrix <- rbind(krack_advice_matrix_row_to_col, krack_advice_matrix_col_to_row)
 krack_advice_matrix
-krack_reports_to_advice_matrix <- rbind(krack_reports_to_matrix, krack_advice_matrix)
-krack_reports_to_advice_matrix
 </code>
 <code>
@@ Line 248: / Line 246: @@
 krack_friend_matrix <- rbind(krack_friend_matrix_row_to_col, krack_friend_matrix_col_to_row)
 krack_friend_matrix
+</code>
+<code>
+# ra (ar)
+krack_reports_to_advice_matrix <- rbind(krack_reports_to_matrix, krack_advice_matrix)
+krack_reports_to_advice_matrix
+# fa
+krack_friend_advice_matrix <- rbind(krack_friend_matrix, krack_advice_matrix)
+krack_friend_advice_matrix
+# fr
+krack_friend_reports_to_matrix <- rbind(krack_friend_matrix, krack_reprots_to_matrix)
+krack_friend_reports_to_matrix
+# far
+krack_friend_advice_reports_to_matrix <- rbind(krack_friend_advice_matrix, krack_reports_to_matrix)
+krack_friend_advice_reports_to_matrix
 </code>
@@ Line 258: / Line 276: @@
 krack_reports_to_advice_cors <- cor(as.matrix(krack_reports_to_advice_matrix))
 krack_reports_to_advice_cors
+krack_friend_advice_cors <- cor(as.matrix(krack_friend_advice_matrix))
+krack_friend_advice_cors
+krack_friend_reports_to_cors <- cor(as.matrix(krack_friend_reports_to_matrix))
+krack_friend_reports_to_cors
+krack_friend_advice_reports_to_cors <- cor(as.matrix(krack_friend_advice_reports_to_matrix))
+krack_friend_advice_reports_to_cors
 </code>
@@ Line 266: / Line 295: @@
 # or equal to 0; thus, highly dissimilar (i.e., negatively
 # correlated) actors have higher values.
-dissimilarity <- 1 - krack_reports_to_advice_cors
+dissimilarity_ra <- 1 - krack_reports_to_advice_cors
-krack_reports_to_dist <- as.dist(dissimilarity)
+krack_reports_to_advice_dist <- as.dist(dissimilarity_ra)
-krack_reports_to_dist
+krack_reports_to_advice_dist
+dissimilarity_fa <- 1 - krack_friend_advice_cors
+krack_friend_advice_dist <- as.dist(dissimilarity_fa)
+krack_friend_advice_dist
+dissimilarity_rf <- 1 - krack_reports_to_friend_cors
+krack_reports_to_friend_dist <- as.dist(dissimilarity_rf)
+krack_reports_to_friend_dist
+dissimilarity_far <- 1 - krack_friend_advice_reports_to_cors
+krack_friend_advice_reports_to_dist <- as.dist(dissimilarity_far)
+krack_friend_advice_reports_to_dist
 # Note that it is also possible to use dist() directly on the
 # matrix. However, since cor() looks at associations between