Differences

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

--- sna_eg_stanford:lab01 [2019/12/11 08:42] – [no pdf] hkimscil
+++ sna_eg_stanford:lab01 [2022/11/28 22:25] – hkimscil
@@ Line 85: / Line 85: @@
 friendship_data_frame <- read.table('http://sna.stanford.edu/sna_R_labs/data/Krack-High-Tec-edgelist-Friendship.txt')
 reports_to_data_frame <- read.table('http://sna.stanford.edu/sna_R_labs/data/Krack-High-Tec-edgelist-ReportsTo.txt')
+advice_data_frame <- read.table('https://www.stat.cmu.edu/~brian/780/stanford%20social%20network%20labs/00%20data/Krack-High-Tec-edgelist-Advice.txt')
+friendship_data_frame <- read.table('https://www.stat.cmu.edu/~brian/780/stanford%20social%20network%20labs/00%20data/Krack-High-Tec-edgelist-Friendship.txt')
+reports_to_data_frame <- read.table('https://www.stat.cmu.edu/~brian/780/stanford%20social%20network%20labs/00%20data/Krack-High-Tec-edgelist-ReportsTo.txt')
 # If the files you want to work with are on your local machine,
 # the easiest way to access them is to first set your working
@@ Line 114: / Line 121: @@
 # header=T, which tells R that the first row of data contains
 # column names.
-attributes <- read.csv('http://sna.stanford.edu/sna_R_labs/data/Krack-High-Tec-Attributes.csv', header=T)
+# attributes <- read.csv('http://sna.stanford.edu/sna_R_labs/data/Krack-High-Tec-Attributes.csv', header=T)
+attributes <- read.csv('https://www.stat.cmu.edu/~brian/780/stanford%20social%20network%20labs/00%20data/Krack-High-Tec-Attributes.csv', header=T)
 attributes
 # Other commands may be used to load data from files in different
 # formats. read.delim() is a general function for loading any
@@ Line 559: / Line 568: @@
 # To view your data in a spreadsheet-like window, use the command 'fix()'.
-fix(reports_to_data_frame)
+# fix(reports_to_data_frame)
 # The attribute data for this lab is in a comma-separated-value
@@ Line 608: / Line 617: @@
 # Take a look at each data frame using the 'fix()" function. Note that you'll
 # need to close each fix window before R will evaluate the next line of code.
-fix(advice_data_frame)
-fix(friendship_data_frame)
+# fix(advice_data_frame)
-fix(reports_to_data_frame)
+# fix(friendship_data_frame)
+# fix(reports_to_data_frame)
 # Before we merge these data, we need to make sure 'ego' and 'alter' are the
@@ Line 770: / Line 780: @@
     name = "advice_tie") == 0])
 summary(krack_advice_only)
 # pdf("1.2_Krackhardt_Advice.pdf")
 plot(krack_advice_only, main="krack_advice_only")